? FXECUTE ESPOL/niSK 



PACKET 
INPUT 
TIME 
nATF 



3«^ 

133ft 
7921q 



CARDS FROM ZIP 
TUrSnAY» 08/07/79 



*** RURROUr.HS B«i700 TSMrP MARK XVll0,l7? AND iNTRINSirS MARK XVI, 0,132 *** 
#N0 MFSSA6FS TODAY 



13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 

13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 

13 
13 
13 
13 
13 
13 



1381 


I38« 


t38l 


net 


1381 


1381 


n8» 


»38l 


J3S» 


1381 


1381 


»38l 


1381 


1381 


t38l 


1381 


»38» 


1401 


MOI 


U0» 


1401 


MOI 


1401 


J40t 


1401 


1401 


1401 


5401 


1411 


«4ll 


141 1 


Ml 1 


1411 


141 1 



13 
14 
14 
14 
15 
15 
15 
17 
18 
19 
20 

25 

31 
37 
37 

50 
51 
01 
36 
38 
48 
49 
49 
50 
50 
50 
50 
50 
14 
14 
15 
17 
18 
19 



EXECUTE ESPOl/DtSK 
? rORE» 12000 
? STACKS 1000 
? FiLF TAPE* SYM 
? FILE DISKS TSS 
? FILE STUFFS TS 
DATA CARD 

4IESP0L/DISK 
DKA OUT SER 
IN CARn» 
IN SER 5 
OUT SeR 
OUT SER 
1 RETRIE 



? END. 



cnc 

DKA 
DKA 
DKA 
DKA 
DKA 

DKA 

DKA 

DKA 

DKA 

DKA 
4DS 
-OPRTR 



RETRIE 
RETRIE 
RETRIE 
RETRIE 
RETRIE 
RETRIE 

nS"ED« 
TSSMCP/STUEF 
DKA REL TSSM 
CODISK/SITE/ 
DKA REL CODI 

CODE/SITE/SI 
DKA REL CODE 
CDC REL CARD 



BOL/TSS 

/MCPA 

SMCP/ST 

/SITES 
CODE SI 

espol/d 

YM80L T 

TSSMCP 

CODISk 
S» MiXs 

MIXs 

MIX" 
Mix* 
MIXs 
MIX« 
MIXs 



MrP DISK SERIAL 
UfE 



S» 

s» 
s» 
s» 
s# 
s» 



4 BOJ 
TfIfS 

ISKs 

ssMrP 

STUFF 
StTfI 

a* D 

4» 
4» 
4* 
4* 
4» 
4* 



U38 05/1? 
POl./DlSKs 4 
4 

»ESP0L/DISK 
lEsPOL/DlSK 
ESpOL/DlSKs 
A»ni03l70» 
A«nl03180» 
Aenl03370» 
A*0103390» 
A«0103795» 
AsOl03955» 
Asnl03965» 



/77 



s 4 
s 4 

4 
SEGSsOS* 
SEGSs05» 

SFRS»05» 
SFGS=05» 
SEGSs05» 
SEfiSs05# 
SEGSs05» 



Rs014000054?047l65. 10*1 

Rs0l4000056?047165» lOsl 

Rs0l4000054?047165. I0*1 

Rs0140000562047165, lOsl 

Rs01400005420474?2, I0«1 

Rb014000114?047422, IOs2 

Rs0l40e00562047422» lOsl 



ESPOL/D 
/SiTEs 

CP STUF 
SITES 6 
SK SITE 
TE« S 
SITE IE 
lESPOL/ 



ISKb 4» Ss 3» As 
50 SEGS--CREATED 
FlESPOL/DlSKs 4 

00 SEGS — CREATED 
IESpOL/DISK* 4 

ERS--CRFATED 08/ 
SpOL/OISKs 4 

DISKS 4 



34110 

08/07/79 AT I3l3ei?4l07 

08/07/79 AT I3l38l30t00 
07/79 AT 13138117141 



DKA REL SYMBOL TSSMCP > FSP0|./D I SKs 4 
ESPOL/DISK/SITE* 4»PSTs 11^0 OS-ED 
FOR ESPOL/DISKs 4lPSTs 89.tOTs 82» C0RE*15360 
PKT#0055 REMOVED 



?USER » Site 



PACKFT 
INPUT 

TtMf 



3.^ 

26 

133? 



caRhs from cRa 



DATE 79?io TUESDAY* 08/07/79 



*** RURROUGHS F)*i700 TSMrP MaRK XVI.0.17? AND iNTRINSirS MARK XVI. 0,13? 4^** 

#N0 mfssarfs today 



13 


39« 


13 


??l 


13 


3?l 


13 


3?t 


13 


32» 


131 


3?» 


131 


331 


13 


33« 


13 


3^« 


131 


311 


13 


351 


13| 


35| 


131 


381 


13 


38» 


13 


n\t 


13 


411 


13 


41 « 


13 


141 « 


13 


41 t 


13 


411 


13 


4lf 


13 


41 « 


I3i 


411 


13| 


411 



50 
50 
50 
53 
54 
55 
00 
01 
01 
02 
23 
23 
12 
13 
40 
48 
48 
49 
50 
50 
50 

51 
51 
51 



?USE 
? EX 
?DAT 



TEND 



r« Site 

ecute patch/mfr6e 

A rARD 

41PATCH/MERGE/SITF* 3 ROJ l 332 05/12/77 
CDB IN CARDIPATCH/MERGF" 3 

ppnoo34 Out on lineiPatch/mfrgeb 3 

r>KA OUT SFR MASTERF RITE»PaTCH/MeRGF» 3 

DKA tN SER patches TSSMCP « PATCH/MERGF* 3 

DkA out SFR PATCHDE SITE'PaTCH/MERGEs 3 

OKA OUT SEP SORTLIN S I TE IPaTCH/MFRGEs 3 

rnR RFL caRdiPaTch/MfRgf* 3 

PaTcmOf/StTE/StTEb SfgS--CRFATfD 08/07/79 AT 00«22«00I19 

dka REi. PATCHDE SiTEiPaTCH/MERGEs 3 

PP0003a OUT OlPJPflTCH/MERGr" 3 

nKA RFL PflTrHFS TSSMrP i PATr H/MeRGF» 3 

SORTLIN/StTF/StTe» 1350 SFr,S--CRFATFD 08/07/79 AT 13J33tOilOO 

DKA RFl. SorTlIN StTFiPaTCH/MERGEs 3 

PPD0034 REL 012 LINE 5/i83 » pATCH/MERGE» 3 

MaSTfRf/S1TF/SiTf« 900 SEG<i — CREATED 08/07/79 AT 13j32|59jl9 

DKA REL MASTeRF S t TE t PaTCh/MeRGEp 3 

PATCH/mERGE/SiTEb i.pST* 3»0ft EOJ 

FOR PATCH/MERGE" 3iPSTb; 18s»I0T« 95»C0RE« 9216 

PKT#0033 REMOVED 



LARFL OOOOOOOOOLINF 00179219? fXFCUTE PATrH/MERftE 

BURROUfiuS P-5700 PATCH/MFRfiE PROGRAM MARK XVT, 0,104 



PATCH /MERGE 



TUESDAY, 0fl/07/79» 1 » 3? PM. 



I* * * 41 * ^ « « * * 



tnput 



***ii^**********t************** ******** ***************************ltt*******tl** 



SPCARD MtRGE Zip IJST 

$. 139 PATCHES FOR TSSMrP 



C 
C 



ooooooo/caro 



CARD INPUT IS CARD 
PATCHES/TSSMcP WILL BE MERGED 
PATCH /TSSMCP ?S NOT ON DISK 



S*FXFrUTF FSPOL/nlSK 

$»CORr s 1?000 

$*STArK B 1000 

S*FILF TAPE s SYmBoL/TSSMCP DiSk SERIAL 

$*riLF DISK » TSS/MCPA 

$*filf stuff » tssmcp/stuff 

$*DATa CARD 

$- *t*** This listing shows patches implemented at ucsc »♦*♦* 

SRESET list SET TAPE STUFF SINGLE 

$ SET autodump packets nUMP 

$ RFSfT SFPTICT&NK rHFCKLiNK SAVFRfSULTS STATISTICS 

SRFSET DUBUr.RlNr, DFX DKrNODFX AUXMFM NEWLOrGING SHAREDISK 

$ SET TWXONLY 



C 
C 
C 
C 
C 

C 
C 
C 

C 
C 

c 
c 
c 



$# PATCH NUMBER lOl FOR TSSMCP CONTAINS OO1 CaRDS. 



D 101 PATCHFS/TSSMCP 



00652100 D 
D 



BFGIN DSl« 16 LIT^-SYSTEM HANG» F*"! 
$1 BY ODD 

SI 7/16/74 D 

t ' TR . , , , D 

it THtS PATCH RffORMATS THF "SYSTEM HANg" MFSSAgE. 

$t***** **************************************************************** ********* D 



101 
101 
101 
101 

101 
lOl 



$#PATcH number 10? FOR TSSmCP CONTAINS 010 CArDS 

SVOIDT 14218081 

If AlT[AlT[0]3,[8llO] NfO 1 TwEN 
BrGiN 

T iBll 

While AiTrn.raiio] « i oo m»ui; 



00000000 D lO? 



14218071 
14218072 
14218074 
14218076 
14218078 



D 
D 
D 
D 
D 



102 
102 
102 
102 
10? 



FOR JlaATTfOJ STfP -1 UNTtL I 00 14218080 f) 102 

AiTrj+n»»AiTrj]i lasteos? d 102 

EmD else U»AlT[0] + n U2l80fla 10? 

ATTtO]|«*P(DUP) ♦ ll U218086 D 102 



ATTr T]»B-f Ul fBiaSllOlRMtrlCFTF]); 14218088 D 102 

St THrS CHANGE CORRECTS AN ERROR IN THE HANOLlNr, OF C0B0L68 90000000 102 

sjopfn statfments That ncruR in thf input or output procedure 90000005 - -"- 

«I0F a sort, Thf files will now be left OPfN aS THEV should. 90000010 



SfPATcH NUMBER 103 EOR TSSmCP CoNTAINS 1 CARDS, D 103 

IF P OR I Then 38608920 D IO3 

SI THIS PATCH CORRECTS AN ERROR IN THE McP PROCEDURE BACKcLOSE D 103 

SI THAT WOULD SOMETtMfS CAUSE ''PUD" FILeS NOT TO BE PUNCHED FVFN WITh D IO3 

SI Thf option AUTOPRNT SETt 1O3 



SfPATcH NUMBER 1 04 FOR TSSmCP CONTAINS 1 CARD 1 O4 

SCHEDLO0KfKTR.TYPFe7) % ES»6» XS^Z 16651000 D IO4 

SI FIXES THE SCHEDULE LiNE "XS" KEYlN p 104 



S#PATrH NUMBER 105 FOR TSSMCP CONTAINS 2 CARDS f) 1O5 

IF fTl 4. PSfUDOMIXtPIMtXI) * THEN 39092165 D lOs 

IE PACKETpAfiErTi • 3?] # THEN 39092167 D IO5 

$1 BY KEN KOVACS 105 

St DATA 4/22/74 IO5 

St THIS Patch corrfcts «n invalid index in control state, d 105 



$#PATrH NUMBER 106 FOR TSSMCP CONTAINS 8 CARDS. D 106 

S VOinT 07li840t 

IF PACKETCARD ■ 5 THEN 
IF PTYPE c 3 AND wOT CONTINUE AND NOT AdECK ThEN 

IE pktonly Then 

$ SET OMIT ■ N0TCPACKETS5 

IF PSFUnOtUNlTNO*32] « THEN 

PRlNTTHFCOVFRfcARDLOC»UNITNO»PsOURCF)» 
S POP OMiT 
St BY KFK 
SI DATE 02/?0/75 



07118100 


D 


106 


07118500 


D 


106 


07139520 


D 


106 


20602515 





106 


20609425 


D 


106 


20609430 


D 


106 


20609435 


D 


106 


20609440 


D 


106 







106 




D 


106 



$» MSa rf'NTRAL - DFTROIT D 106 

S» This patch WtLL Ai low packets and decks to be mixed. also if the O 106 

$» spn option "rkTonly" is set then all decks Will re used as if they d io<i 

SI WERE packets, that I j^ THE USE OF PKTqNLY IS MQW CHANGED So THAT D 106 

S» IT NO LONGER CONTROLS THE LOADING OF DEcKS BUT To CONTROL OF THEIR D 106 

SI USf. D 106 



SfPATcH NUMBER 107 FOR TSSMCP CONTAINS 1 CARDS. D 107 

HFAnFRr4Hs0*f9ln0nr?»38ll03«SYSN0r4l46t2]| 20289H5 n 107 

*» BY KK n 107 

Si DATE 8/7/74 D 107 

SI THIS PATCH WILL CORRECT A CONDITION THAT cOULo MARK THE PACKET D 107 

SI PAGE AS BEING IN USF. BY THE WRONG SYSTEM AFTfR A HALT/LOaD. D 107 

$t*^f*^i^i'^i*i^**^t**iic*******^*******m***************it***^i******* ********* 107 



03120000 


n 


108 




n 


108 




D 


108 




D 


108 




n 


108 



$# PATCH NUMBER 108 FOR TSSmCP CONTAINS 001 CArD, D 108 

IF P?>0 THEN M0VF(15#P2fT + 4) EUSr MtT + 43*.P?| 
SI BY ODD 
SI DATE 8/99/74 

SI THIS PATCH ALLOWS ERrOR MESSAGES LONGER THAN 60 CHARACTERS 
SI TO BE PRINTED CORRECTLY ON A REMOTE TERMINAL THRoUGH CaNDE, 
lt****'t'**************** ************************************** *********** n 108 



SfPATcH NUMBER 109 EOR TSSmCP CONTAINS 1 CARD. D 109 

IF LOgLtNf « ThfN LOrLINf •■ - UNlTNOj 
SI BY DDD 
SI DATE 9/19/74 

SI This patch replaces a line of code that was Inadvertently 

SI LEFT out in the XV, 3 RELEASE, WITHOUT THIS PATCH* ESPOlSK 
Si IS NOT HANDLFD CORRFrTLY* INcORRfCT LOG FNtRiES aRF MADFt 
St ANn SYSTEM HALTS CAN OCCUR, 

it*** ******************t^***************************^* ******************* ^ 109 



SIPATCH NUMBER 1lO FOR TSSmCP CONTAINS i CARDS, D 110 

FIBri6],[CFH«0>« 41204000 D 110 

St BY KK D 110 

SI DATE 10/??/74 D 110 

SI THIS PATCH CORRECTS THE TSSMCP^S HANDLING OF TAPE FILES D llO 

SI CLOSfD WITH THE "CLOrF {<F I LE I n>f *)" SYNTAX. THE TSSHCP D 110 

SI WOllLn "FORGET" THAT THF LAST I/O DONE ON ThIS FILE WAS A D 110 



2060250? 


n 


109 




D 


109 




D 


109 




n 


109 




D 


109 




n 


109 




D 


109 



$1 REVERSE I/O BY ZEROtNG FlBri6]» THUS WhEN ThE FtLE IS 

SI OPENED AGAIN THE TSSmCP WOULD SPACEC FORWARD ) OVEr 

$1 THF NEXT FILF» AND TwF FILE THAT WAS JUST CLOSED WOULD BF 

$t ACCESSED AGATN. 



D 110 

D tlO 

D 110 

D 110 

D 110 



$# PATCH NUMBER 111 FOR TSSMCP CONTAINS 1 CARDS! 



HI 



$ VOIdT 06098201 06097600 D 

«l BY KK D 

«« DATE 11/ 3/74 D 

t» TmiS PATCH WILL Al.LOW A DtSK SOUASH TO BO STOPPED ONLY AFTER IT D 

$1 HAS FINISHED MOVING A FILE. IF STflPPED SOnNER ThEn THE AVAILABLE D 

$1 DISK TABLE CoULD BE DAMMAGEO, D 

$ I ^itfiif^*,^***i^*****,ii^iit,**if ,1,4:*** ****************************** ****** n 



11 

U 
11 

11 
11 
11 
11 



S# PATCH NUMBER 112 FOR TSSMCP CONTAINS 1 CARDS, 



D 112 



RRRMfCH ♦ NOT TWO(U> aND RRRMfCHl % tET STATUS riNO IT 
$1 BY KK 
SI DATE 11/ U/7U 

SI This patch corrects a problem with units goinc, not ready 
SI and then not being ptcked up as being ready when they go ready 

$l***4i*****4!***********4*******4i**^*******^**Hf*^i***^******************if**4i****if'i^ 



04383900 D 112 

D 112 

11? 

11? 

D 11? 

n 11? 



$#PATcH number 113 FOR TSSMCP CONTAINS 5 CARDS 



D 113 



Xl CLKtOJ IS 
S SFT OMIT B NOTCNFWLOftGiNG) 

IF LOGSTOPPFOrPlMTXl THfN PROcT iMfr P 1M I X ] FI.Sf 
S POP OMiT 

PROCTIMETPIMIX] ♦ CLOCK 4 PCRTR)! 
SI BY KFK 
SI DATE 11/27/74 

Si THIS PATCH CORRECTS A CONDITION THAT CAUSfD TwE LOG OFF MESSAGE TO 
SI CONTAIN fRRONfOUS DATeI AS a RfSUlT OF THF NEW MCP COMPtLF TiME 
SI OPTION ♦♦NEWLOGGING*' THE VALUE OF PROCT I ME [P 1 Ml X ] IS CHANGED TO 
SI INDICATE IF THE PROGpAM SHOULD RE CHaRGfD FOR CP|) TIME OR NOT, 
Si THTS Was NOT TaKfS into CONSIDERATION WhfN C0MM2 PaSSED THF VaLUE 
$1 TO BF USED AS •♦cLOcKn BY CANdE. 



$1***^1*********1^*******^**4:************************$,**************************** D 



03067500 D 113 

03067600 D 113 

03067700 D 113 

03067800 D 113 

03067900 D 113 

D 113 

113 

D 113 

D 113 

D 113 

D 113 

D 113 

D 113 

113 



S#PATcH number 114 FOR TSSmCP CONTAINS ? CARDS 
S VOID 



D 114 
37284150 D 114 



16 TmFN rPBrFN<.3]ir6ll7l»PRNTABLr[U].r31tl7JI 37285410 



TF U 

Si BY KFK 

SI DATE ll/?7/74 

SI When using a mulTt-ftlf pbt thf second and following 

St SOMETIMES BE PRINTED SEVERAL TIMES, THIS WAS CAUSED BY 

Si IN The USE OF A FIELn In THE FpB OF A PROGrAm. THE SAME FIELD 

SI THaT IS USED TO HOLD THF NUMBER OF COPIES cFrOM a FILE EQUATE) 

SI IS ALSO USED TO HOLD THF PRN OF THE TAPE, THIS PROBLEM IS 

St FIXED BY NOT MOVING THE PRN TO THE FrP UNTTI- THE FILE IS 

SI THfN WHEN THF FILE IR RFOPENfD A NEW SECTION OF THE FPB WILL 

SI USED AND THIS WILL CONTAIN THE rORRFCT VALuF FOR COPIES. 



FILES WILL 
A CONFLICT 



CLOSED. 
BE 



*l UI>rU AINO THIS WIUiL- CniMTAI" 1HF rUKKPCI VALUf ^ UK CUrU-5. 

iti)i^ttii^*iti**^ii*****itti¥******* ********************** *'^****'lt^'****i******** 



n 

D 
D 
D 
D 
D 
D 
D 

D 
D 
D 

n 



114 
114 
114 
114 
114 
114 
114 
114 

114 
U4 
114 
114 



SfPATcH NUMBER 115 FOR TSSMCP CONTAINS 1 CARDS 



115 



KlND*FtBr4l*r8i4]; TF F I Bf 1 3 ] I f ?8 1 1 0] ,«0 THFN RrEL*FI BM 3 J . t 28| lO J ) 39092000 D 115 

SI BY KFK D 115 

St DATE ll/?7/74 115 

St IF THF RFFL IS GIVEN ON A F I Lf ( EQUAT T ON ^ tONTrOL CARD IT WILL n 115 

Si not re used by the MrP WHFN tT LOOKS FOR A TaPE FILE AT FILE D 115 

SI opfn ttmfI This is because the reel number is moved from the d us 

$1 FIR, NOW THE reel NUMBER IS ONl.Y MOVED FRoM THE FIB IF IT IS 115 

SI NONZERO D 115 

%tt^**^t*****************,^*********************^^*^,***i),******************l^t********^, n 115 



S#PATfH NUMrER 116 FOR TSSMCP COBTaINS 1 CARDS 



S VOinT 38024081 
SI BY KFK 

DATE 12/?3/74 

IF A PROGRAM READS A DISK FILE THAT HAS A ROW SIZE THAT IS LESS 

McP WILL ONLY GET A CORf 

BUT ANY PROGRAM THAT 

iZ inTrInSics will not 



38024010 



SI 
SI 
SI 

Si 

ti usfs The buefe 

SI 

St _ _ 

is NOT There! 



THaN the programs RUrFFR SlZr» THF „ 
BUFFER The S?7E OF TpE DISK FILERS ROW 
R WlTHnUT GniNG ThUr ThE 



USFb THE BUFFER WITHnUT GOING THUr THE InTrInSICS WILL NoT 

KNOW THAT THF BUFFER SIZE HAS BEEN CHANGED? tHERfFORE<» AN INVALID 

Link may occuRf te omf tRtes to use the part of the bufffR that 

iS NnT TuFRe! 



SI I o NO I I HtWt . 

$t***it*****it***#*******t,*^l*lf******************* ********************************# 



D 
D 
D 
D 

n 

D 
D 
D 
D 
D 
D 



116 

116 

116 
116 
116 
116 
116 
116 
116 
116 
116 
116 



S#PATrH NUMrfR 117 fOR tSSMCP CONTAINS 2 CaRDS 



117 



06058630 
06058640 



IFCNRtFlAND FOURMASK),[lt353#0 ThEN GO CLOSEIT) 

IF(NREF*5]AND NINEMASK).tli2fi3?'0 THEN 
$1 BY ODD 
SI DATE 12/27/74 

SI THIS Patch cOrrecti^ a Problem that would caUSe some files to 

81 BE MARKED TN USf AFTfR A HALT/LOAD ON A ShaRfDISk SYSTEM. 

$i***t **************************************************************** ********** 



D 
D 

D 
D 
D 

n 



117 
117 
117 
117 
117 
117 
117 



*#PATCH NUMRFR ll8 FOR tSSmCP COMTAINS t CARD D 118 

IF COUNT <0 THFN GO TO STaRTi 37240050 D 118 

$tBY ODD n 118 

$t?/5/75 D 118 

SISOFTWaRE flash number 68 D 118 

SMF TWO LiBMAIN/DfSKS aRF BOTH WatTING FOR lut SAMr TAPE TO BECOME D 118 

StREAnY. ONr COPY WILL BF ASSIGNED THE CORRECT TAPE AND ThE OTHER 118 

StCOPY OF LIBMAIN WILL PE ASSIGNED TO MTA, D 118 

$t***jt::******iti^fTt:*)¥******** **************************************** ****** D 118 



«#PATcH NUMBER 1l9 FOR TSSMCP CONTAINS 3A CARdSI D 119 

REAL BVn»UBLKSZ.SpB7 

RCLl«»tM[CT»«5PACFf41)lU^ir8j38llO]| 
IF hdRtyPf NrQ 3 
Then for NTil^iS step 1 UnTjL NT? DO pCLrNTi-5]««HrNTn 
ELSE FOR NTliB?0 STEP 1 UNTIL NT?+5 Do 
RCLtNTl-10]|«HtNTn> 

urlkszj»nt?; 

TF fNT4?»Hr?]Ir5t33 n ?) THEN % DECIMAL f4-BlT) 

BCLrOllsf SPBI»NT2 DiV 30 ♦ fNT? MOD 30 NEQ 0))& % SEGMTS/BLOCK 

NTifU34iu]i % Words/record 

IF HDRTYPE GEO 2 THEN % FIGURE OUT EOT USING B6r00 FORMULA 
BEGIN 
STREAMtBI«0 J Wl»«wri4])» 

BEGIN sn«Loc wi Dn* LOc B) Dii«ou4> SKIP fl db; 

20ffF SB Then dsi»set else osi.rfSfti skip 1 SB)> 
endi 

BVD»«PI J! BITS OF VALID DATA IN LAST SEgMT 
TF Hr?»KC8M 1 

Then if (NT?i«H[?i.[iii33)«? 

THEN BEGIN NTltBl2J NT4j«3| END 
FLSF if NT2i4 

THEN BEGIN NTli«6l NT4|s7; FNn 
ELSE BEGIN NTiteSl NT4t»5> fNd 
ELSE BEGIN NTllwit nT4I«47» ENDI 
NT2»«t(Htl4].t?0i2f»] MOD SpB)xNTlx30) 
■♦•fCBVn <•• NT4) niV (48 niV NT1))> 
NTIUTF NT2.LSS.UBLKS7 THEN NT? ELSE UBLKS7» 
NT9«,NTi+CHrl41,r20t?8] DIV SPB)xNT3xr NT« I «H[ 3 i . r 32 » 1 6 3 ) I 

ENDI 

BCLt7]j«IE HDRTYPE GEO 2 THEN (NT2+NTft-l> plV nT4 - 1 

ELSE Ht4]> 
SVOIDT 

Hl«»rM[SPACEr42 5mi30r8l38ll0]; 
Hl»Hll4ir8>38»103l 
SiTSSMCP* 4208 

t« B6700 TAPES WITH NEW HEADERS 

tiTHlS CHANGE ALLOWS THf B5700 LIBRARY MAlNTFNANCr TO LOAD FILES 



27990410 


D ] 


19 


27993900 


D 1 


19 


27994200 


n 1 


119 


27994210 


D 1 


19 


27994220 


D 1 


19 


27994230 


n ] 


19 


27995310 


D ) 


119 


27995600 


D 1 


19 


27996300 


1 


19 


27996505 


D 1 


[19 


27996510 


D 1 


119 


27996515 


n 1 


[19 


27996520 


n ] 


[19 


27996525 


D 1 


[19 


27996530 


D ] 


[19 


27996535 


D 1 


19 


27996540 


D 1 


19 


27996545 


D 1 


119 


27996550 


D 1 


[19 


27996555 


D 1 


[19 


27996560 


D 1 


119 


27996565 


D 1 


[19 


27996570 


D 1 


19 


27996575 


1 


[19 


27996580 


D 1 


[19 


27996585 


D 1 


[19 


27996590 


1 


119 


27996595 


D 1 


19 


279<)6600 


D 1 


L19 


27996605 


D 1 


[19 


27996610 


D 1 


119 


27996800 


D 1 


119 


28070000 


D 1 


119 


28274200 


D 1 


119 




D 1 


119 




1 


119 




D 1 


[19 



SIFROM TAPES WHICH HAVE BFFM CRFATFD ON A B6700 WITH NEW HFADFR n 119 

SIFORmATS of type ? AND 3. D 119 

$«( PRi 4208 ) D 119 



S#PATrH NUMf^FR 1?1 FOR tSSMCP CONTAINS U rARoSl D I2l 

SVOIDT 

OPTNt«CNi PR05r?9) IbOj 
DT««LOr AJ Sn«L0fl H» SKtP 1 DB» osi^Sft; 
S SFT OMtT m not B6500|,0An 

TF BftSOO AND fNOT OFST IN ^ r 1 « 1 1 ) THEN 
BEGIN STrEAM(TmPi«TmPI»SpACF(10))» 

DS|»3?L1T''#B6700 TaPE TO TaPE NOT aLLOwED*"* 

SPOUTfTMP)^ 

ABORT; 

fNdi 

$ POP OMtT 
SiTSSMCPf «?11.* 

SI LIBRARY MAINT. CORRECTIONS 

SITHIS CHANr.F PERFORMS THF FOLLOWINOI 

S» a! CORRECTS MiShANDLiNG Of ESPDISK SfgMfNTS OllRlNfi ABORT. 
SI B! MAKES HEADERS CREATED FROM COPYINC, 8*700 TAPE FILES •♦NEW" 
St TYPE HEADERS AmD 

SI C. DISALLOWS TRANSFERS FROM R6700 SOURCE TAPES DIRECT TO TAPE 
SI BECAUSE OF POS5IBLE RAD SEGMENTS PER ROW INFORMATION IN THE 
St B6700 HFADFR, aTTfMPTS aT SUCH TRANSFERS WtLL CAUSE ABORTION 
St WITH The FOLLOWING MESSAGE I 
$1 ••#B6700 TAPE To TAPE NoT ALLOWED", 

StWARNlNGt IN THF "COPY" CONTROL CaRD» THE MAXIMUM NUMBER OF FILES PER 
St OUTPUT UNIT MAY BE CONFUSED WITH TmF <MFfD> OF A FILE IF 

SI THAT <MFtD> tS a NUMBER; I.E. ThE <MFID> OF THE FIRST FILE 

St FOLLOWING THE WORD "COPY" MAY NoT BE A NUMBER. 

SIC PRI 4211 ) 



S#PATCH NUMBER 172 FOR TSSMCP CONTAINS 1 CARDS. D 122 

CNTI SlteST + l; BibSII IF SC*" " THEN GO TO CNT I TALLY t «0; 08291125 D 122 

St BY KfK 122 

St DATE 2/2fl/75 D 122 

St MSfl CENTRAL - DETROIT D 122 

SI This patch will Ai.LOW for better scanning of the PB KEYIN. D 12? 

SI it is now ok to have Spaces after a "#" or "»". d 122 

$t***<*i***** ******** ****m** ******** ************>t'* *********** ********<¥**** D 122 



$#PATcH number 123 FOR TSSMCP CONTAINS 27 CARDS, D 123 

ST^FAMf AlfT0HLDiR»"T0uLD!r42l6]-i ,ct'=T0HLn.r42t63#0, 20571700 D 123 

Dt.rCMMr?7]]); 2057170? d 123 



20566800 


D 


121 


20566817 


D 


121 


27996675 


D 


121 


28475605 


D 


121 


28475610 





121 


28475620 





121 


28475630 


D 


121 


28475640 


D 


121 


28475650 


D 


121 


28475660 


D 


121 


28475665 


D 


121 







121 




D 


121 




D 


121 




D 


121 




D 


121 




D 


121 




D 


121 




D 


121 




D 


121 




D 


121 




D 


121 




D 


121 




n 


121 




D 


121 




D 


121 




D 


121 



BfGIN P0571710 D 123 

SIi«LOC AJ SKIP SB; 20571720 D 123 

If SB THEN 20571730 123 

BEGIN 205717«0 D 123 

SKIP 39 SR> 20571750 123 

TF SB TmEN DSI=6 LIT^'OFAST •• 20571760 123 

FLSF 20571770 D 123 

RTGIM 20571780 D 123 

SKtP S8« 20571782 123 

IF Sp ThFN r)SJ»8 LiT^OSLOW " 20571790 P 123 

ELSE 20571800 123 

BfCIN 20571810 D 123 

CrSn«LOC B» 20571820 D 123 

DSt*A LIT"0EU * ") DSt«2 DEC? 20571830 D 123 

Jump out to LJI 20571840 D 123 

0«;i*8 LlT»'Ot)ISK "{ 205718A2 D 123 

>-» FNn 20571850 123 

END 20571860 D 123 

FNn 20571870 D 123 

ELSF 20571880 D 123 

BEGIN 20571890 f) 123 

SKIP 5 SBI 20571900 D 123 

DSisLlTwO"? DSls7 CHR; 20571910 123 

ENDl 20571920 D 123 

ENOJ 20571930 D 123 

SI BY KrK 123 

S» DATE 3/18/75 r 123 

St MSa central - DETROIT n 123 

SI This patch will P| ACF the output unit NaMf of a library copy D 123 

SI IN WORD 27 OF ThF SHeET SO ThAT WHEN A TS ?S DONr THIS NAME WILL D 123 

SI BE Listed on the output message. d 123 

Sl*4i*4ti|ii|t*4'>ti««*)tci|>4>*4<>l<***ii>**:('*it'>»t***t>t>*>l<****«**4tii<****4i**4t*4iiti>l>*iii>|cik****i» D 123 



S#PATCH NUMBER 124 FOR TSSmCP CONTAINS 2 CARDS, D 12ft 

IF KIwD«7 THEN FPBt FNUM + 3 3*f *P(DUp ) )iT2t 1 5 1 15 » 8 1 38228510 D 124 

R0C6|39l9]j 38228520 n 124 

Jl BY KpK f, 124 

SI 5/7/75 r) 124 

Si mSa CENTRAL - DETROIT 124 

SI WHEN USING A MULTI-FILE PBT THF SECONn AND FOLLOWING FILES WILL n 124 

Si SOMETIMES BE PRfNTED SEVFRaL TIMFS. ThtS WAS CAUSED BY A CONFLICT n 124 

SI IN TmE USE OF A FIELn TN ThE EPB Of A PROGRAM. TmE SAME FIELD D 124 

SI THAT IS USED To HOLD THE NUMBER OF COPIES fFpOM A FILE EQUATE) D 124 

SI IS ALSO USED TO HOLD THE PRN OF THE TAPE. D 124 

$ i **************************************'******** ***ti***** ****** ******** n 124 



SIPATCH NUMBER 126 FOR TSSMCP CONTAINS 1 CArOi 126 

PROrVALl»0; 20602860 126 

SI BY KFK n ,26 



$1 DATE 04/05/75 D 126 

St Ms; rrNTRAt. - nriROiT n 126 

SI TwfS PaTtu CORRrrTS ftN fRROR !N CONTROLpARD TuaT COULn caUSf n 126 

SI UNFXpLAtMED CONTROL rARP ERRORS AND SYSTEM HALTS: THE ERROR D 126 

$1 Was CAUSFD by CONTrOiCARD not resetting THF stack variable D 126 

SI "PrOcVaL" back to zero aETER a typed procedure Was called. thus D 126 

St THF next TYPfh PROCEnURF CALLED WOuLO STARt WITH A NON ZfRO VALUE, D 126 

$t***^ii*t*******#iiiiiii**i*'ti* til* **************************,^**** ******** f) ]26 



S#PATcH NUMBER 127 EOR TSSMCP CONTAINS 3 CARDS. D 127 

IF (Tl«sSCAN) » ENDEI THEN 20608740 D 127 

60 TO PACK2I 20608760 D 127 

S VOinT 20698800 D 127 

SI BY KfK D 127 

SI DATE 04/08/75 D 127 

St mSa CENTRAL - DETROIT D 127 

$1 THIS PATCH WILL CORRECT THE WAY CONTROL CaRD HANDLES PACKET D 127 

St ERRORS, WITHOUT THIS PaTcH THE PACKET WILL ONLY BE ELUShED D 127 

St TO The nfxt end OR Wait card not to just The end card. d 127 

St*)|i******«***>|ti|t#*iti«**titi<l'4is«i****t******)i<*4<*i|i*4=4<*****4c****«*4<**>l'******^*** 127 



SfPATrH NUMBER 128 FOR TSSMcP CONTAINS 3 CARDS, D 128 

IF OU r,EQ THEN % WE HAVE AN OUTPUT UNfT 28304590 128 

IE lU GEO THEN % WE HAVE AN INPUT UniT 28304700 D 128 

IE oU GEO THEN % WE HAVE AN oUTpUT UnIT 28306500 D 128 

SI BY KFK D 128 

St DATE 04/10/75 128 

SI MSa CENTRAL - DETROIT D 128 

St THIS PATCH WILL CORRECT AN ERROR iN THE NfW LtBMAIN/DISK PROqRaM. D 128 

SI IE There was a -null library transfer" then iE The input OR OUTPUT D 128 

SI UNIT IS DISK, WORD OmE OE MEMORY WQUlD BE oVeRWRtTTEN BY A ZERO AS D 128 

$1 THE MCP TRIED To CLOSE THE UnIT, ONE OE ThE MANY PROBLEMS CAUSED D 128 

St BY THIS SITUTaTION wJs THAT NO USER CODES WOULD rE ACCEPTED BY D 128 

St cOnTROLcaRD BECAUSE THF MfP^S USfRcODE( STORED iN WORD ONf ) IS ZERO. n 126 

SI NO ERROR MESSAGE WAS GfVEN To INDICATE ThIS CONDtTiON AND ThE SYSTEM D 128 

St CONTINUED To rUn BUT AlL USErCODES WqUlD BE ZERo! D 128 

$t*t*'ttti************************* ******************************** ***************** r> 128 



SfPATcH NUMBER 1 ?9 FOR TSSMCP CONTAINS 6 CArDS, D 129 

SHEATC?43|*McP| 

SHEATr^^J's^MCPl 
uEADERf2H»HEADERr5Jl«McPI 
SiIsCARD; DS|«9 wdsi 
MrBUE + 873 |!"MCpj 

SHFATt24]|«McPT 



07262100 


D 


129 


08276365 


D 


129 


20289113 


D 


129 


20289240 


D 


129 


2028925? 





129 


22069212 


D 


129 



SI BY KfK n 129 

S« DATE 04/l?/75 129 

SI MSa central - DETROIT D 129 

$« This patch will C«USr PRNPBT/DISK and AUTo-UDrNTRL D 129 

SI TO 8F EXFCUTFD WITH THE McP^S USFRCODE. ThIS INFORMATION T) 129 

SI IS PLACED INTO ThF LOG FILE. ALSO WITH THtS PATrH D 129 

SI PACKET PAGES WILL BE GIVEN ThE MCP"S USfR CODE NnT D 129 

SI THE USER CODE '•PACKET". D 129 

$t**ilt^i*}t*******^t***itt***,^***:t,m** ********************** ^li**'lf**i^* ft 129 



SfPATrH NUMBER 131 FOR TSSMrP CONTAINS 2 rARDS. D 131 

USfRSi TEfTlaSCAN)#EOUAl, ThFN GO INCSCJ 20605700 D l3l 

lE(TiBSCAN)«PE:Rlft THEn Gn InCSC; 2060570? D 131 

SI BY KFK n 131 

SI DATE 04/10/7S D Ul 

SI MSa central • DETROIT H 131 

SI This patch will gtVe a control card error if d m 

SI eather The eoual sigm or user code is missing on a d m 

$1 User control card* o 13i 

St****************************************************************************** n 131 



$#PATcH number 132 FOR TSSMCP CONTAINS 1 cArDi 132 

If FAS7 RTR ThEN LIRRARYHFLPf 5) ELSe 1 U UOU I it fPBPTR I sO )-1 I 
SI BY KFK 
SI DATE 04/10/7S 
SI MSa CENTRAL • DETROIT 

Si This Patch will coRRfct a condition tn ltrMain/dtsk that 

SI would cause a Library taPe to bf created WtTh no library 

SI eiles on it. This tape resulted on a null library transfer. 

SI also corf space for the buffers is not obtained unless There are 

SI some files to be copied. 

$t************************ ******************************************** ********** 



28246200 


D 


132 




d 


13? 







13? 




D 


132 




D 


132 




D 


132 




D 


13? 




D 


132 







132 


******** 


D 


132 



S#PATCH number 133 FOR TSSMCP CONTAINS 1 CARDf D 133 

DSl«8LiT'«lx0x40O0''> DS i -BL I T'»OPACKET*»l 07416700 D 133 

SI BY KFK 133 

$1 DATE 04/l?/75 D 133 

SI MSa CENTRAL • DETROIT D 133 

SI With some systems the first i/o done to a printer for d 133 

SI THF packet Page will cause the printer to hang up for d 133 

SI extended period or time. this was caused by DOIwG an D 133 

St invalid printer operation, that is no printing and no D 133 

SI PAPER MOVEMENT. D 133 

St This I/O rfsultfd whfn the mtp changfo the i/o n 133 

SI DESCRIPTOR FOR THE ApORTED LINE SO THAT THiS LINp WOULD D 133 



$1 NOT pr printfd, 

$1 NOW A SiNr.LE SPACr TS 

SI The mcp would Recover 



GENrRATFO. 

FROM This condition 



$1 AFTER ARqUT J?0 SECONDS, 



D 

D 
D 
D 
D 



133 
133 
133 
133 
133 



S#PATCH nUmRER 



13« FOR TSSmCP CONTAINS 1 CArD, 



rLSE IF U»18 tHFN PCniRECTORYSEARCHCMFlD.FIDtnj.DFDl 

S« RY SR 

SI DATE 04/03/7"^ 

SI This PATCH CAUSES HfADER SPACE FOR DUPi.KaTf DISK FILES TO BE 

Si FoROOTTFN, PREVIOUSLY, IF THE LIBRARY MAINTENANCE TASK INVOLVED 

SI MANY DUPLICATIONS, THE HEADER SPACE OF EACH DUPi.ICATE FILE WAS 

$1 LEFT IN CORE EVENTUALLY RESULTING IN A «N0-MEM" CONDITION ON 

SI MIX ZERO. 



D 1 34 



28446300 


n 


134 




n 


134 




D 


134 




D 


134 




D 


134 







134 




D 


134 




D 


134 



D 134 



SfPATfH NUMBER i 35 FOR TSSMCP CONTAINS i CArD, 



SI 
SI 
SI 

s 

s 



MOVE(10fB,Tl+25l 
RY KfK 
DATE 04/22/75 



41323150 



I DATE 04/22/75 r 

I This patch correcjs a condition that would cause an invalid d 

I address on a halt loaD if memory mod one Is off i.ine. d 



1 3S 

135 
135 
135 
135 
135 
135 



SfPATcH NUMREr 



136 FOR TSSMCP CONTAINS 25 CflRDS. 



136 



Label pe,tf,pa> 

SWfTCH SUpA,PE,TF»TT»USfD,TD,PRMOT,TMR»AD»Wnl 
Cli IF (Ui»l4) GEO (-5) AND 14 LEO 6 THEN 
REG IN GO to St 14*5 3 I 

Pa» 
s set omit b not(packets) 

IF dlsPSFUDOMlXrPlMlX]) GEO 32 THEN 
I4t»PACKETACTt I-323J 
S POP OMiT 

GO TO INITIATEI 

PF» 
S SET OMIT s NOT(PACKETS) 

IF (Il»PSEUD0MlX[PlMiX3) GEQ 32 THfN 
BEGIN 
Ht-PACKETERRri'S?]; 

PACKETERRrl''3?3t«TRUEJ 
FNOI 
S POP OMIT 

r,0 TO inttiatfi 



18701010 





136 


18701100 


D 


136 


18710100 


D 


136 


18710200 


n 


136 


18710240 


D 


136 


18710242 


D 


136 


18710244 





136 


18710246 


D 


136 


18710248 


D 


136 


18710249 


D 


136 


18710250 





136 


1871025? 


D 


136 


18710254 


D 


136 


18710256 


D 


136 


18710258 


D 


136 


18710260 


D 


136 


1871026? 


D 


136 


18710264 


D 


136 


18710266 


D 


136 



Tf:i 

$ SET OMIT 



S POP OMIT 



e NOT(PACKETS) 
IF (1 l»PSFUDoMlXtPlMlX]) 

I4l«PACKFTrRRri-3?1> 
GO To INITIATFI 



GFQ 32 THfN 



18710266 

18710270 
1871027? 
1871027« 
18710276 
18710278 



BY 
DA 
MS 

1) 
2) 
3) 

OV 
FU 
BY 
HA 
RU 



KFK 
TE 04/ 

fl rFNT 
TmIS 

TIME 

TIME 

TIME 

These 
fR the 
nction 

ZERO* 
S RUN 

NN|Ng 
TfMFf 



22/75 

RaL - 
PATCH 
f"3)# 

e-4)» 
thrf 

PACK 

RATh 

ETC) 

INTO 

FROM 

-4) W 



oftROtt 

Anns TuiR 

WILL RfT 

THIS FUN 

WILL RrT 

F FUNCTiO 

FT, NOW 

ER THAN B 

. ALSO, A 

TROUBLF. 

THF Packf 

ILL RfTiiR 



ff nf 

URN T 
CTION 
URN T 
NS WE 
A PRO 
Y DS- 
PROG 
AND 

T AT 
N THF 



W TIM 

HE CU 

WILL 

HE CU 

Rf An 

GRAM 
ING T 
RAM C 
A PRO 

This 

VALU 



F FUN 
RRENT 

SET 
RRENT 
DED T 
CAN " 
TSELF 
AN •♦S 
GRAM 

TIME. 

F Of 



CTtONS? 

STATUS OF THE 
THE PaCkETErR B 

VaLUf of PaCKE 
GIVE A PROGRA 
KILL" A PACKET 

WtTH A RUN Tim 
FEf IF A SISTER 
CAN TfLL how ma 



PACKETERR BIT 
IT 

TACT, 

M some CONTROL 
BY A TIMF 
E ERRORfDlV 
PROGRAM 

NY Jobs are 



packetfrr Bffore it sets it. 



EXAMPLES: (ALGOL) 

IF A i.ss Then 
begin 

B»=TIME('-4)» 
Go To EXITi 

ENnj 



% WE HAVE A PROBLEM 

t LETS KILL This RUN 

% KILL PACKET 

X EXIT PROGRAM 
% 



AN 



IF 
SE 

AN 
*** 



n tN A PROGRAM RUN FROM THE SAME PaCKfT aT THE SAM 
IF B00LFAN(TIMfC-3)) ThEN GO TO EXiTj % ERROR 



E TIME 

IN OTHER PROGRAM, 



OP This run it 

"SEE" THIS 



The ftRST program finds a problem and wants to sti 
TS The packeterr biT then the second program wtll 

p ALSO GO To EOJ, 

ilt*tii^^^ti^-^i^*iliti^L******i^*******i^**********ii********iti*** ************** 



D 
D 
D 
D 

D 
D 
D 

n 

D 
D 
D 
D 
D 

D 
D 
D 
D 

D 
D 
D 
D 

D 
D 
D 

n 



D 
D 

n 

D 

D 

n 



136 
136 
136 
136 
136 
136 
136 
136 

136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 
136 



SIPATCH NUMBER 



138 For tssmcp contains 3 Cards. 



138 



GEO 3? Them 



2060611? 
20608lt4 
20608116 



TF 7TPMtX NfQ ThFN 

IF fTlBpSEUDOMfXrZTPMlX]) 
PACKETERRtT-32]|sTRUEl 
$1 BY KfK 
$» DATE 04/23/79 
S» MSa central ' DETROIT 

$1 THIS PATCH WILL SfT THE PACkETERR BIT IF THERE 
$1 IS A ZIP ERROR IN THf PACKET, 

$t^**»:******************** ****************************************************** 



n 

D 
D 


n 

D 

D 

n 



138 
138 
138 
136 
136 
138 
138 
138 
138 



tfPATcH NUMBER 



140 FOR tssmcp CONTAINS 22 CaRDSI 



140 



$ VOinT 12797501 
$ VOInT 12739501 



RFOIN T*(A TNX P540OO000O000000Ul7t6i36JlO3> 
IF RFPARATE ThFN T*T&(LUN,«??)t3?ia7in 
FLSf T*T*(LUN#?9)t28l47l n» 



IF Klignal THFN MrALPHA-2l*P<Dl)P»L.0D) & 
flF SrPARATF ThCN 1 FLSF ^?0 ) f 9^ « 42 » 6 ] 



ELSE 

IF NOT SEPARATE THEN 
IF rTYPE<?0) THEN 

HFADFRr73]«'PfDUp»LOD)ii(P20)t27U2l6]l 
MrALPHA]*(*P(DUP)>(l(P60000)[CTF]> 
IF TYPF<20 THEN 

M[aLPHA3*f ♦PCD|iP)U(IF SEPARATE THEN 1 ELSr P20 ) [ 27 I 4? I 6 J J 
IF NOT SEPARATE THEN Mr aLPhA ]»f *Pf DljP ) )* 1 f 27 I 42 I 6 ] I 
END» 

IF NOT SEPARATE Then Mf ALPHA 1*P(DUP.L0D)&i [27 i 42 « 6 ] I 
MtALPHAJ.r^Oll]*-!! 
IF EIBri4],rFF])«FTBri4],rCF] THEN 

IF SEPARATE THEN PC Wfl I T I Of P40001 OOOOO » 0»U ) » DEl. ) 
FLSF PfWAlTlO(P4002000000»0,U).DEl.)> 

IF NOT SEPARATE TwFN PC WA T T I 0(P4000100000, 0»U > » DEL) I 
$1 BY KFK 
$1 DATE 5/7/75 
SI MSa CENTRAL - DETROIT 

$1 This PATCH CHANCFR the USF Of the SPO OPTION "SEPARaTf". IT NOW 
t| TS used to CONTROL TuF PRtNTfR SPACEING AROUND TuE LABLE PARE. 

SI That is if separate iS reset then only a doUble space is done 

SI AETEr the BEGInInG LaBEI, and before the ENDInG label* IE IT IS 
SI SET the operation OF THE PRINTER IS aS IT WAS BEfORE( A FULL 
St PARE FOR THE LABEL RrCORD). 

SI This was donf to uelp wiTh The energy crunch and per cube Request, 



$#PATrH NUMrFR 141 for TSSMCP CONTAINS 452 CARDSt 00000000 T) 141 

LSI TF SC * •"♦•' Then if Sc »» LEfTARROW then 02615100 D 141 

begin St I« SI + II GO To lS; EN0» 09615200 D 141 

if SC " LEFTARROW THEN GO Tn EXITi 02615300 D 141 

$ VOInT oensooi OBO95000 d I4i 

%%f%%%%%%%%t%%%%%%%%%%%t%%%%%%%%%%%%t%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%0B095050 n 141 

X* ♦X08095150 D Hi 

«• PRINTDIRECTORY *«08095?00 D Hi 

X* .-..-- ♦X08095250 D Hi 

X* ♦X08095300 D Hi 

%* PURPOSE! THIS PROCFDURE HANDLES THE PD. pX. LF» LC AND LS ♦X08095350 D Hi 

X* MESSAGES. ALL MESSAGES ARE FORMS OF ThE PD MESSAGE *X08095400 Hi 

X* EXCEPT FOR CERTAIN DIFFERENCES. THE PD MESSAGE WILL *X08095450 D Hi 

X* LIST THE NAMES OF THE DESIRED FIlES aS WELL AS *X08095500 D Hi 

X* CERTAIN PIEpES OF INFORMATION IF REQUESTED. ♦X08095550 D Hi 

X* ♦X08095600 D Hi 

X* SYNTflXl THE FORMAT OF ALL THE KpYlN MESSaGES WiTh THE *X08095650 D Hi 

X* EXCEPTION OF THE LF MESSAGE IS AS FoLLOWSl ♦X08095700 D Hi 



02287240 


D 


140 


02287245 


D 


HO 


09287250 


D 


HO 


12726500 


D 


140 


12728500 


D 


HO 


38280500 


n 


HO 


38280600 


D 


HO 


38280700 


D 


140 


38281600 


D 


HO 


38281700 


D 


140 


38281800 


D 


140 


38590000 


D 


HO 


38590100 


D 


140 


38590200 


D 


HO 


38592100 


n 


HO 


38594000 


D 


HO 


38594100 





HO 


38594200 


D 


140 


38594300 


D 


140 


38741000 


D 


HO 


38741100 


D 


HO 


38742100 


D 


140 




D 


HO 




D 


HO 




D 


140 




D 


140 




D 


HO 




D 


HO 




D 


HO 




D 


HO 







HO 







HO 



%* 
%* 
%* 
%* 
%* 
%* 
%* 
%* 
%t 
%* 

%* 

%* 
%* 

%* 
%* 
%* 
%* 
%* 
%* 
%* 

%* 
%* 
%* 

%* 
X* 

%* 
%* 
%* 

X>K 

%* 
%* 
%* 
%* 
%* 

%* 
%* 

%* 
%* 
%* 

%* 
%* 
%* 
%* 
%* 
%* 

%* 

t* 
%* 
%* 
%* 

%*** 
%%r% 



<MFSSAr,r> <r!Lr SPrrlFTFR> <OPtiOn-UiST> 
<Mt'SSAGE:> t|« PO / FX / L.C / L,S 

<FILr SPFCTF!FR> U= <FILENaME> / <FtLENAMe> "/" 
<F1LENaMF> 

<0PTI0N'"LIST> ««■ <EMPTY> / <OPTinN> / <OPTION> » 
<OPTlOw-LlST> 

<OPTrON> Mb Rrcs / Last / datf / SaVe / size / 

CREATOR / SECURITY / ALL 

<FIl.ENAME> lis [FROM 1 TO 7 CHaRaCTErS OPTIONALLY 
ENCLOSrD ?N QUOTES! / « 

THE SYNTAX fOR THE LF MESSAGE tSI 

lf <useri0> <0pt10n-list> 

sfManticsi the fx» Le» Lci and Ls mfrsagfs aRf Just 
modtftfd FORMS Of the pd meSSare! the fx message tS 

the same as a PO EXCEPT THAT oNLY THE fXrIRED FIlES 
ARE LISTED. THE LE IS THE SAME AS A PD*/" EXCEPT 
THAT ONLY THE FILES BFLONGING TO ThE SPECIFIED USER 
ARE LISTED. THE Lr MESSAGE IS THE SAME AS A "PD 
<FILF SPECtFTFR> CREATOR". THE LS MESSAGE IS THE 
SAME AS "PD <FILE SpEClFIER> SeCUr I TY . CREATOR". 

THE OPTIONS SPECIFY WHAT ADDITIONAL INFORMATION 
TS TO BF LtsTFn BESIDES THE DFFAIiLt INfORMATtON, tF 
AN UmRECOGntZARlE WoRD IS EnCOUnTeRED !N THE OPTION 
LIST* IT IS IGNORED, THE AVAILABLE oPTIoNS AREi 

RECS - numbfR of Records in Thf fiLf. (special logic 

IS incorporated To the list the correct NUMBFR 

For backup files). 
Last • last access date, 
datf - cReatton DATf. 

SAVE " save factor. 

SIZE • SIZE OF The file in segmentsI 

creator - privileged usercode assocaitfd with file. 
(For Backup files the labei. oF The print file 

AND THf NflMF OF THE PROGRAM cRfaTInG THE BACKUP 
is also LISTED). 

security - ACCESS PRIVILEGES OF THE FTLE» I,E.» 
LOCKED. UNLOCKED* PUBLIC* PRIVaTE* FREE, 

%t%%%%%%%%%%%%%%%%%t%%r%%%%%%%%%%%%%%%%t%t%%%%%t%%t%%%%%%%%%%%%% 
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PROCFnURf PRlNTDlRFCTORYfRDFFi J 08098600 14; 

vaLmt RiirrJ 08098650 n H: 

RFAl bUff* 08098700 D 14' 

BEGIN 080987S0 D Mi' 

08098800 n I'*: 

fNTFfiFR 08098850 n 1*! 

1. % NORMALLY rONTAlNS OPTlON NUMrfR! 08098900 H: 

J, % JUNK. 08098950 D 14' 

CnOE; X » - PO, 0R099000 D 14' 

il! » 1 - FX, 08099050 D 14; 

? « 2 - Lr, 08099100 14; 

? s 3 - Lf, 08099150 D 14] 

1! « 4 - LS. 08099200 D 14; 

08099250 D 14; 

RFAL 08099300 D 14 

MFin» % MfiD of DrStRFD FtLE OR -1 IF •'■•', 08099350 P 14' 

FTD» % FTD OF DFSIRFO FILE OR -1 IF " = •♦, 08099400 D 14' 

C» t ADDRESS OF DISk HEADER, 08099450 D 14' 

D, % MFID oF LfiST FILE FOUND BY SEEKnAM. 08099500 14; 

E» X FTD OF Last file found RY SEfKNaM. 08099550 n 14; 

N» % WORK VARIABLE USED BY SFEKNaM TO SAVE INFO, 08099600 D 14; 

T, % NORMALLY uSFD TO SAVE DEST. tNDfX; 06099650 D 14' 

iNFOf % BIT MASK FOR OPTIONS SELECTED. 08099700 D 14' 

LaBfLREC* X ADDRESS OF LABEL RECORD FOR PrD ( If LC ). 08099750 D 14; 

URERID» % USfRID if LF. 08099800 D 14; 

XJ % JUNK. 08099850 D 14; 

08099900 D 1 

ARRAY 08099950 D 14' 

HDRf*]* % DESCRIPTOR To DISK HEADER. 08100000 D 14' 

XLSTCfljX SOME DAY WE MAY ALLOW EXCEPTION LIST. 08100050 14- 

08100100 D 14; 

BOOLEAN 08100150 D 14; 

Pp0T0G» % TRUE IF SfLFCTFD FILF IS A PRD. 08100200 D 14< 

FOUNDAFlLFJ % TRUr IF WE LISTED OUT AT LEAST ONF FILF. 08100250 D 14; 

08100300 D 14; 

LABEL EXTT.0ROP0UT»DUmMY»OPTIONS) 08100350 D 14' 

DEFINE NUMOPTS « 7*1 08100500 D 14; 

DEFTNF PD « (CODE * Oi#, 08100550 D 14; 

EX a (CODE « n*» 08100600 D 14' 

LC ■ (CODE » 2)#» 08100650 D 14- 

LF » (CODE ■ 3>#» 08100700 D 14; 

LS a (CODE « 4''>#J 08100750 D 14; 

DEFINE O810OBOO D 14; 

PRIMaRYUSFR * HDPr2]#» % PRtV. User rOoF. 08100850 n 1 

SaVfFACTOR s HDRr33.r2M0l#, % Save factor! 08100900 D 1 

LASTACCESSDATE s HDRr3].ri?lt6]#» % last access date. 08180950 D 14' 

CrEaTIONDATE = HDRt33.r30jl8]*» * CREATfON DATE. 08101000 D 14; 

GUARDFILFMFID » HDRt5]#» % MFiD OF GUARD FILEt 08101050 D 14; 

GUARDFILFFID « HDRr63*» % FiD Of GUARd FILE. 08101100 D 14; 

EOFPOINTER s HDRr71*» % EOF POINTER! 08101150 D 14; 

SfGSPERROW « HDRr8]#» X SEG. pER ROW, 08101200 D 14' 

NOOFROWS = HDRr9].[43»5]#» X NO. OF ROWS DECLARED. 08101250 D 14; 

HfADERADDRESS « HDR.[rF]#| X CORE aDdRESr OF HEADER, 08101300 D 14; 

Xitri|c4'>«4t<t<)tt<^4>*4i**t4(4.<tt*iK* SUBROUTINES ♦♦♦♦♦n.********************0810l350 n 1 

SUBROUTINE GETREADYI 08101400 14' 

X ---• — — - — 08101450 D 14' 

BFGIN 08101500 D 14; 



cOdf is Ri)rF.r9i6]i 

BUFF 1= rTJ*BUFF)!ri5«l51 - 1> 

IwFo l« & (l,C Or Lf OR l,S)ta?M7in i LSt43i47«l3| 
FNO OF r,FTRFADYj 

SUBROUTfNr GFTFTLFSPFrTFirRJ 



" THFN % GET FID 



BFGIN 

NAMFIn(MFln»T5> % GET MFIn (OR USERCODE IF "Lf"^ 

IF Lr THEN USFR?n !« MftDJ X FTRST TwTNr, tS U«;FRfD FOR LF. 

ir MFfO » •♦«•«■ ♦♦ OR LF Then 

MFIO I» - 1 J 
NAMElDCElDfTl? 

IF Fin » "/ 
regtn 

NAMEinf FiDf T)j 

NAMEinrN,T)l « GET NEXT fTEM. 

END 
ELSE % NO Flo SPFrlFIED IM/'LIES FID OF "»•• 
BEGIN 

N l» FIOI 
FfD im -II 
ENOl 
If Fln.t6t6] * LEfTaRROW or LF THEN % NO FID SPECIFIED 
FID I* - 1» 
END OF GFTFILESPFCIFTFRI 

SUBROuTfNF PROoFSSOPTtONLISTI 
BEGIN 

While n # ••* " do x accumulate options 

BEGIN 

FOR 1 I* -1 Step 1 until cnumopts - 2) do 

DUMMYn IF P( .options* I»*»L0D) * N THEN % MaTCHfS AN OPTION WORD 
BEGIN 

INFO l« INFO OR TWO(I-H)J % SfT BIT CORRESPONDING TO 
GO TO DrOPOUTJ 
END 
fLSF * CHECK FOR "ALL" 

IF N s "Ai L " Then % SfT all optiOn word bits. 

INFO »« not 01 
DROPOUTj 

NAMEID(N#T)J % GET NEXT OPTlON WORD^ 

IF N • ", « THEN NAMEID(N»Tj; % SKIP OVER COMMA. 
END; 
GO TO EXITI 



X 
X 



OPTIONS M» "RFCS "» X OPTION (lNF0,t47il 

"LAST ", X OPTION \ (lNF0,r46jl 

"DATE "'. X OPTION ? flNFO.rflSll 

"SIZE ", X OPTION 3 (INF0.r44ll 

"SECURIT", X OPTION ft (INF0,r43tl 

"CREATOR", X OPTION 5 (lNF0,r42|l 

"SAVE "I X OPTION 6 HNFO.raijl 
FXITJ 

END OF PROCESSoPTIOnLISTJ 
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101600 
101650 
101700 
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101850 
101900 
101950 
102000 
102050 
10?100 
Ib2l50 
102200 
102250 
102300 
102350 

102400 
102450 
102500 
102550 
102600 
1D2650 
102700 
102750 
102800 
102850 
102900 

102950 
103000 
103050 
103100 
103150 
103200 

193250 
103300 
103350 
103400 
103450 
103500 
163550 
103600 
1Q3650 
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103800 

103850 
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subroutinf gftsftj 
bfgtn 

IF F^ OR TNFO * ThfN « WE WILL NEFD ThE HDR- 
HDR «« fOQUF « SPACEOO) tCTCi; 
END OF r,ETSETJ 

ROOI.FAM SUBROUTINF WErOTAFIlFj 

RFC, IN 

SFFKNAM(MFTn.FTn»r»n»F»N»XLST)J X FlNn A FltE. 
WfGOTAFILF »b C # 0> X C tS ADDRESS oF DISK HrADER. 

EmD of wegotafilF; 

pooleaN surROutinf wfwantthisfiufi 

bfgin 
pbdtog is <(d eqv "prd " ) a not or (d eqv "pud " ) 

» NOT 0)1 
IF HFADERAnnRFSS * THEN % WF NEED THE HEADER. 
DlSKWAlTf-HEADFRAnnRFSS,30,c)I % RfAD HEADER. 

IF LF then % CHECK TO SEE IF WE WANT THtS FILF. 

WEWaNTThiSEILE |s PRTMAPYUSER = USERIn 
ELSE 

IF FX ThFN 

BFGIN 

STREAMf At "CaLCUL A TEpURr,E( -SAVE FACTOR) »XtarX])l 

BEGIN 

SI J*" Lor A> ns t» 8 ocT» 
FNni 

WEWaNTThtSFtLF »■ X > LASTACCESSDaTfJ % TRUE IF FILE 
END 
ELSE 

WEWANTTHISEILE l« TRUE? 

FNn Of wfwaNtthtsfilfi 

SUBROUTINE PUTINFILFNAMEJ 

BEGIN 

STRFAM(A«"0 J D» r» RUFF)I % SET UP FILf NAME. 
BEGIN 

St j» log D> 

ns tK LIT " "j 

7\ ST J» SI + II OS t» 7 CHRJ DS «« LIT "Z"); 
01 «= DI " 1 J 

DS !■ ? LIT " ••> X NEED 2 SPACES To ALLOw FOR ARROW. 
A «» DII 
tNOJ 

t is pi x save off dest. index, 
end of putinfilenamfi 

subroutine dorecs; 
rfgin 

STReAMM'.TF PBDTOG THEN fOEPOtNTeRxS ELSf EOfPOtNTeR+1 IT! 
BEGIN 
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ns I* 9 LIT ••RFCORnSt "J 

S! J= LOc a; 

ns :s 8 nrcj « convfRT number of rfcords to dec. 

A 1= DII % SAVE oTF Dl BEFORE ZERO SUpPREsSiNG, 
ni »« Dl - «} 
ns »» 7 FlLLj 
FNni 
T J= P! X SAVF DFrTTNATiON ADDRESS, 

END OF nORECSJ 
SUBROtJTiME DOnATEnRLA<;Tf 



BEGIN 

5TRFAM{X|»[X])> 

BFn tN 

St Is XJ 

ns t« 8 nFC» « CONVERT DATE TO DECTMA|.. 

ENDS 
GrMEOATEfrXJ.rCFl.-X); % convert JULIAN date to 6 DIGITS, 

STREAM(A«sf Ian « X» T)l 
BEGTN 

A ( DS la 10 i.TT ••ACCFSSFDl "I JUMP OUT To L1)» 
OS I* 9 LIT "rREATEDl ♦• ; 
LI S 

SI I* LOc Xj 
Si I" SI + 2) 

3 ( DS la ? CmRI DS I* LIT "Z")! 
DT la ni " 11 X ERASE THE EXTRA SLASMI 
A la Di; % SAVF DEST. INDEX, 
END! 
T la PI J! SAVE DESTINATION ADDRESS, 
End of DODATEORLASTj 

SUBROUTINF DOStZfj 



begin 

NT2 ja NOOFROWSJ % NO, OF ROWS DECLARED. 

nti ;a 01 % niiMrfr Of rows processed. 

FOR J la 1 STfP 1 UNTIL NT? nO % CHFCK TO SEE IF ROW fXtSTS, 
IF HnRrj+9] / THEN NTi 1= NTi + iJ % BUMP Up COUNT. 

STREAH(AI«NTixSEGSPERROW I T)i 
BEGIN 

ns l« 10 LIT "SFCMfNTSI "> 

St la LOr A> 

DS la 8 DECI 
A l» Dl » 
Dl l» Dl - B> 
ns l« 7 FiLLi 

FNni 

T l» PI !: SAVF DESTtNATtON ADDRfSS, 

End of dosizej 

SUBROUTINE OOSECURITY, 

BEGIN 

J IS IF PRlMflRYUSrR a THEN % FREF ElLp 

fLSE TF CUARnFlLFMFIn a MARK THfN % uNLOrK OR PURLTC 
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TF GUaRDFILFFtO x MARK ThEN 1 % UNLOCKED 

FLSe 2 % PUrLtC 
FLSF IF GUaROFILFMFID < THEN 3 % PRIVATE 

ELSE 4> % L.OCKrD 
STRFAMrJ I A5=GUAPnrTLFMriD» P S "GUARhF I l,FF I D . T); 
BEGIN 

ns IS 10 LIT «SFCURITYi «; 
CI l« CI + Jj 
60 TO FRFFI 
GO TO UNLOKj 
GO TO PUBLlr) 
GO TO PRIVATE! 
LOCK! ns 1= 6 LIT "LOCKED"! GO TO EXITj 
PRIVATE5DS te ?? LIT "PRIVATE fSFCURFD WtTH "> 
S| »s LOC A{ 
? ( Si !■ SI + 1) DS 1= 7 CHR; DS J» I.IT «/•♦)! 

ni »s ni - ij 

DS »» LIT ")"', 

GO TO fXIT) 
PURLIC* ns »« 6 LIT "PUPLIC"! GO TO EXiTi 
UNLOKJ DS Is 8 LtT "iiNLCcKfD"! cO TO EXtTI 
FREFl DS IB 4 LIT "fREF"! 
EXIT! J t« DII 
ENDS 
T ts p; X SAVE DESTINATION ADDRESS. 
END OF DOSECURtTYI 

SUBROUTINE DOCREATPRJ 



% 



RFGTN 
SSFT OMIT a PACKETS 

TF Jt=rPBDTOG AMD rElr30ll8] * 1)) ThfN % REEL 1 OF PBD 
$POP OMIT 
$SET OMIT = NOTtPACKETs) 

TF JlsfPBDTOG AND rF.r«?l6] a U) THEN % RfEL l OF PBD 
$POP OMIT 

BEGIN 

IE LABELRFC e THEN I.ABELREC J= SRaCeOOW 

niSKWAlT(-LABFLRFC»30»HDRtlOH2){ 
ENDi 
STRFAMfJ I Bt" PRjMARVUSFRsO, C I =PR IMARYUSER* 
DIaLARELRFr INX 1?, T)J 
BEGIN 

ns l» 9 LIT "rRFATORl "J 

R ( DS 1= * LtT "N0NF"J JIJMP OUT TO L? )> 

St Is LOc Ct 
Si Is SI + 1 > 
DS |« 7 CHR> 

L2t 

J ( DS IS 2 Lit " ("J 

SI I" D> 

? f ST IS SI + II DS IS 7 CHR! dS Is |,it "Z")! 
DT Is DI - II DS IS H LIT " OF ♦♦ ! 
2 ( SI IS SI + II DS js 7 CHRI nS |s uj "/"); 
DT Is DI - II DS 1= LIT ")" )} 

4 Is nil 

END! 
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1400 


D 


Hi 


0811 


1450 


D 


HI 


081 


1500 


D 


HI 


0811 


11550 


D 


141 


0811 


11600 


D 


HI 


081] 


11650 


D 


HI 


0811 


[1700 


D 


HI 


0811 


1750 


D 


HI 


0811 


11800 


D 


HI 


0811 


[1850 


D 


HI 


0811 


1900 


D 


Hi 


0811 


11950 


D 


HI 


0811 


?ooo 


D 


141 


0811 


[2050 


D 


HI 


0811 


12100 


D 


HI 


0811 


2150 


D 


Hi 


0811 


12200 


D 


Hi 


0811 


12250 


D 


Hi 


0811 


12300 


D 


Hi 


0611 


[2350 


D 


Hi 


0811 


[2400 


D 


Hi 


0811 


2450 


D 


Hi 


0811 


2500 


D 


HI 


0811 


[2550 





HI 


0811 


[2600 


D 


HI 


0811 


2650 


D 


HI 


0811 


2700 


D 


HI 


0811 


2750 


D 


Hi 


0611 


2800 


D 


Hi 


0811 


2850 


n 


HI 


0811 


[2900 


D 


Hi 


0811 


2950 


D 


Hi 



T $= PI j; sAvr destimation apdrfss, 
EnD of docreaTor; 

SURROllTINr nOSAVFFACTORl 



BFGlN 

STREAMCA >« SAVEFaCTOR I T)) 
BEGTN 

DS J» 6 LIT "RAVFt " ; 

ST «« Loc a; 

ns «B 3 DEC! 

A >a DtJ 

01 fa 01 - M 

ns I* ? FILL} 
END J 

T IB PJ « SAVE DESTINATION AnnRFSS, 
END OF DOSAVEEACTORj 

SUBROUTINE OOOPTlONS; 



Begin 
EoR I »s STEP 1 Until (numopts - n do x see if option bit 

IE (TWOCn AND INFO) * THEN XOPTION SELECTED, 
RFGIN 

CASE I OF 
BEGIN 

DORECS; % CASE - "REcS" 
BEGIN % CASE 1 " "LAST" 

X !■ LASTACCESSDATEI 
DODATfORLASTJ 
END OF CASE U 
BEGIN % CASE 2 - "DATE" 

X I* treationdatei 

DODATfORLASTJ 
END OF rASF 2J 

OOSIZE; % CASE 3 - "SIZE" 
DOSECURtTYJ * CASE H ' "SECURITY" 
DOrREAToRl % CASE 5 - "CRfATOR" 
DOSaVFEaCTOR) % CASE 6 • "SAVE" 

END OF CASESI 

STREAMd I T)l % PUT COMMA AFTER l,AST OPTION, 
BEGIN 

DS IB ? LIT ", ") 

I !■ nl » 

eNdi 

T t« PI 

END Of LOOP TO PROCESS OPTIONSI 
END OF nOOPTfONSl 

SUBROUTINE MaKEThEMfSrAGE I 

BEGIN 

IF FOUNDAETLE ThEn % WE NEED A BUFFER. 

BUFF l« SPACE{30)I 
PUTINEILENAMEI 
DOOPTlONSi 
STREAMfT)! % PUT tN THE LfET aRROWi 



SET 



081 


3000 


D 


oei 


3050 


D 


081 


13100 


D 


081 


13150 


n 


081^ 


13200 


D 


081 


13250 


D 


081 


3300 


D 


081^ 


3350 


D 


081 


13400 


D 


0811 


13450 


D 


081^ 


13500 


D 


081 


13550 


D 


081^ 


13600 


D 


0811 


13650 





081 


13700 


n 


081^ 


13750 


D 


081 


13800 


D 


081 


13850 


D 


081 


13900 


D 


0811 


13950 


D 


081 


14000 


D 


0811 


14050 


D 


0811 


14100 


D 


0611 


14150 


D 


0811 


4200 


D 


0811 


14210 


D 


0811 


14250 


D 


0811 


4290 


D 


0811 


4300 


n 


0811 


14310 


D 


0811 


143?0 


D 


0811 


14340 


D 


0811 


14350 


D 


0811 


14360 


D 


0811 


4370 


D 


0811 


4400 


D 


0811 


14450 


D 


0811 


4500 


D 


0811 


4550 


n 


0811 


14600 


D 


0811 


14650 


D 


0811 


14700 


D 


0811 


4750 


D 


0811 


14800 


D 


0811 


14850 


D 


0811 


14900 


D 


0811 


14950 


D 


0811 


5000 


D 


0811 


5050 


D 


0811 


15100 


D 


0811 


15150 


D 


0811 


,5200 


D 


0811 


5250 





0811 


15300 


D 


0811 


15350 


D 


0811 


15400 


D 


0811 


15450 


D 



4' 

4' 

4' 
4' 

4! 

.4' 

4' 

4: 

4' 

4: 
4: 

4' 
4! 
4: 

4; 
4' 
4! 
4; 
4: 

4' 

4' 
4' 
4' 
4 
4: 
.4; 

4 

4' 

4; 

4! 

4' 

4! 

4' 

4: 

4' 

4! 
.4: 

4; 
.4] 

4' 
,4! 

.4: 

4' 

4: 
4; 

,4' 
4i 

4' 

4; 

.4! 

4; 
4' 
4! 
4' 

4: 
4; 
4! 



% 
% 



% 
% 



PPr.TN 

HT !* ni -?J 

nS :« LIT LFFTARROW; 
FNO» 
END or MAKFTHFMESSAr,FJ 

suBROUTiMF complain; 

BFGIN 

STREAM(BUFF)J 

DS IS 6 LIT " Null 

SPOUTrRUFF)J 
END OF COMPLAINJ 

SUBROUTlNp FORr,ETFVFRYTHTNn> 



J % ORIGINAL INPUT Is AT BUFF + 1. 



%* 



bfgin 

IF 
IF 
EMI) 

gftrf 
gfTfi 

PROCE 
GfTSE 

While 

IF 
B 



E 
IF NO 

FoRr,E 

FND Of 
DATE 9 
BY JTC 
THtS P 
COPE H 
SOME N 
HANDLE 
SLIGHT 
LAST N 
MULTtP 
IN ADD 
LISTS 

PRlVlL 
LISTS 
PUBLIC 
MATICN 



HEADERAD 
LA9ELREC 
F FORGET 

% * * * ]|C * « * 

AHYJ 

LFSPECtF 

SSOPTION 

T; 

WEGOTAF 

WFWANTTH 

EG IN 

MAKETHE 

SPOUTCB 

FOUNOAF 

NOJ 

T rOUNDA 
TFVERYTH 

prtntotr 

/10/75 
- MSA C 

atch rfw 

AS BEEN 
EW OPTfO 
D BY ThI 
LY In TH 

amfs or 

Lf OPTtO 
iTfON, F 

OUT The 

EGED USE 
OUT THE 
» PRIVaT 
AVAILAB 



dress # then forgetspacf 
* Then forgftspaceclabe 

EVEPYTmINGJ 

**** START OF CO 

TFR) 
LiSTj 



(HFADERAnDRESS)) 

lrfcm 

F **^,ilfttnlf******^f***** 



ile do 

ISFILE 



THEN 



MESSAGE! 

UFDJ 

ILF «» TRUEI 

FILE TmFN COMPLAINl 

INRJ 

ECTORYf 



entra 

RITES 

elimi 

NS AR 
S PRO 
AT A 
A FIL 
N wOR 
OUR N 
SAVE- 
RCODE 
ACCES 
E. OR 
LE FR 



THE PRIN 
NaTEP (TH 
E AVAILAB 
CrDURE (P 
S| ASH IS 
F (A SPAC 

OS May be 

EH OPTION 

Factor oe 
aSSociat 

S RIGHTS 

fRff» an 

OM EACH 



TDIRECT 

F PROCE 

LF. THE 

D»EX*LE 

NOW REO 

F WOULD 

SPECIF 

WORnS 

THE EI 

ED WITH 

OE THE 

D "ALL" 

F ThF I 



ORY p 
DURE 

SYNT 
»LC» 
UIRED 

SUFF 
lED A 
HAVE 
LE» •• 

THE 
FILE, 

LIST 
NDIVt 



rocedUre: 

IS 30 WOp 
AX FOR Al 
AND iS) M 

BETWEEN 
ICE PREVt 

fTfR any 

BEEN ADDf 
CREATOR" 
EI^.E, -Sf 
UE, LOT 
S OUT ALl. 
DUaL OPTt 



MUCH 
OS SMa 
L MESS 
AS BEE 
THE EI 
OUSLY) 
OF THE 
D. "Sa 
LISTS 

CURITY 
KED» U 
OF TH 
ONS, 



NEEDLESS 

LLER) AND 

AGES 

N CHANGED 

RST AND 

AND 

MESSAGES 
VF" 

OUT THE 
o 

NLOCKEO. 
E INFOR- 



SOME EXAMPLES OF THE MESSAGES ThaT ARE POSSIBLE FOLLOW. 

Pn A/B Rfcs»daTf,Stzf 
LF Site all 

LCPBD RECS 



081 
081 
081 
081 
081 

081 
081 
081 
081 
081 
081 
081 
081 
081 
081 
081 
081 
081 
081 
081 
♦♦♦♦*081 
081 
081 
081 
081 
081 
081 
081 
081 
081 
081 
081 

081 

081 

081 

9999 

9999 

9999 

9999 

9999 

9999 

9999 

9999 

9999 

9999 

9999 

9999 

9999 

9999 

9999 

9999 

9999 

9999 

9999 

9999 

9999 

9999 



15500 
15550 
15600 
15650 
15700 
15750 
15800 
15850 
15900 
15950 
16000 
16050 
16100 
16150 
16200 
16?50 
16300 
16350 
16400 
16450 
16500 
16550 
16600 
16650 
16700 
16750 
J6800 
16850 
16900 
16950 
17000 
17050 

17100 
17150 
17200 
0000 
0100 
0200 
0300 
OftOO 
0500 
0600 
0700 
0600 
0900 
1000 
1100 
1200 
1300 
1400 
1500 
1600 
1700 
1800 
1900 
2000 
2100 



n 

D 

P 

D 
P 

D 
D 
D 
P 
P 
D 
P 
D 
P 
P 
P 
R 
D 
D 
P 
P 
D 
P 

D 

D 
D 
D 
D 
D 
P 

D 
P 
D 
D 
D 
P 
P 
P 
P 
D 
P 
P 
D 
P 
D 
D 
P 
D 
D 
P 
D 
P 
D 

D 
D 



4: 
4i 
4' 
4' 
4' 

4: 

4 

4 

4; 

4; 

4; 

4: 

4: 

4- 

4: 

4' 
4' 
4 

4: 

4 

.4: 
4; 
4: 

4' 
4 
41 
4' 
4- 
,4! 
41 
41 
4; 

4' 
4' 
4; 
4< 
4' 
4' 

4: 
4: 

4' 



4: 

4- 
41 
4' 
4' 
4: 

4: 

41 

.4: 
4; 

4' 
4' 



$1 CONSULT THE HFADING BLOCK Op TrF PR 1 NTn I RfCTORY PROCEDURE 99992200 D Hi 

$« For AOniTlOMAL INFOPMATION. 99992300 D I4l 



$#PATrH NUMrfR 142 FOR TSSMCP CONTAINS 1 CARdI OOOOOOOO 142 

RfAL NfUJ DFFINf UB|)T#,UAsUT#fNFUl»NEU+J#,NFU2=NEU+NEU*l 06351055 D 14? 

SI DATE 10/1/75 99990000 D 142 

$» BY JTC - MSA CENTRAL 99990100 D 14? 

SI thts PATCH Corrects a problem in sharedisk mcps 99990200 d i42 

$1 WHICH could CAUSF INVALID LINK FRRORS. THE GlOBAl. 99990300 D 142 

$1 VARATBLF AVS WAS BEING USED INCORRECTLY IN ThE 99990400 D 14? 

SI PROCEDURE USERDISKSPfCIALCASf. 99990500 D 14? 



S#PATrH NUMprR 143 fOR rSSMrP CONTAINS 5 CARDS, OOOOOOOO D 143 

LABEL PE»TE»PA.LLj 187i&l0l0 D 143 

SWITCH 5 »« LL»PA,PE.TE»IT»US»DfTD»PR.IoT»TMR,AD»WDl 18701100 D 143 

Cl» IF CI4i»14) > (-6> AND l4 < 6 THEN 18710100 143 

BEGIN GO TO Sri4463l 18710200 D 143 

LLI 14 l« L0GLTNE.t40j8]l GO TO INITIATE) 18710230 D 143 

$1 DATE 9/?5/75 99990000 D 143 

$1 BY JTC - MSA central! 99990100 143 

SI THIS PATCH Implements timf(-6) which returns the 99990200 d 143 

si logical line number from which a Particular program 99990300 d 143 

$1 is running, batch program will always Return a ZfRo. 99990400 d 143 



S#PATcH number 144 FOR TSSMCP CONTAINS 7 CARDS. OOOOOOOi D 144 

PROCEDURE FoRMTlMF(W»T)j VALUE W,T; REAL W.T) FoRWArDI 004S0010 D 144 

(S + 2 + (M[BUF INX Z3.tlt5]!«">")H8l38llO]| 02173296 D 144 

FORMlIME(tNTl]»XCLOCK*PfRTR))J 02173297 144 

STREaM(NI«S-1»CLIbSx8*Y,AAi«RUF |NX Z»BB I» NT1» 02173300 D 144 

BUFj8[RUF[R]])| 02173301 D 144 

BEGIN DS IS 7 LIT ♦♦ ** I SI l« LOC BR) OS t a 8 CHR) 02173305 D 144 

DS Is 9 LtT ♦♦ "J SI t» AA) 02173306 D 144 

SI DATE l0/?0/75 99990000 D 144 

SI BY JTC - MSA central! 99990100 D 144 

Si THIS PATCH ADDS THE TIME OF DAY TO EACH MESSAGE AS IT IS 99990200 D 144 

SI ENTERED INTO THE PACkET PAGE. 99990300 D 144 



SIPATcH number 145 FOR TSSMCP CONTAINS 7 CARDS 145 

LABfL IPCFRR) 19504100 D 145 

lNlT»SL0W#C34fC35»C36»c37»TW,TW»C40»C4l.IPCERR» 19508100 D 145 

IPCFRR»IPCERR.IPCERR» iPCFRRMPCERR.TWfSLOW) 19508200 D 145 



IPCfRR: TERMTNaTF (plMiX); 19575000 

TERMtNaLMfSsAGF- C96)J 19575100 

♦•8INVai.D"# "fl IPC C. 41445500 

"?0M...,". 41445600 

$J RY JTC - MSA rFNTRAL. SOFTWARE FLASH 161 



n 



D 

D 

D 

n 



145 
145 
145 
145 
145 
145 



$#PATrH NUMRFR 146 FOR TSSMCP CONTAINS 41 rARnS. 



00000000 



146 



IABFL FOF, CLFANUPI 
DEFtNF H 3 HEADER#» 
$ VolOT 38477001 

RFGIN % CnMPIL 

FOR Tl IB 15 

SFGOCTll » 

IF fT? i» SK 

BEGIN 

SKE|,t133 

diskwait 

SFG0tl5] 
DO 

BfGIM 
IF D 



RE 



E To LIBRARY 

STfP 1 UNTIL 22 nO % COPY PROC» I/O, 
m SKELrTl]> X STACK, C0mM0N# PRiO,, ETC. 
ELri3]) * THEN % LAB. EQN, ENTRIES 

l« O; % SO TERMINATE WoNT SEE ESPDISK STUF 
(SKFL.rcF]»30,T3){ % REWRITE SKfL, SHEET 
«B H[7] + 1> « AnDRESS OF 1ST ENTRY 



EN 
ELSE 

BE 



0PYIN6 LABEL EON. INFO INTO CODE FILE 
AD0RESS(MlD,FlD»FPB[FNUM+3], 
»sH[73lsHC7]+l)»H»0) « THEN % NO ROOM 



GIN 

lSKWAIT(-SKrL.rCF3»30pT2)l % GET SEG, 

ORGfTFSPDISK(T?) J 

D 

IL rT2 l» SKELr29]) = 01 

EMESSf-^DlSK "^''OVrFLOW.MiD.FIO* 

♦DfC)» 



$1 
SI 
SI 
SI 



FN 
EmD 

Until T2 
end of pro 

SEG0t6l »« N 

Ht4].[inin 

niSKWAlTCSFG 
ENn OF COMPILE 
DATE 1/19/76 
BY JTC - MSA central; 
THIS PATCH CORRECTS aN UN 
CAN CAUSF ESP DlSK SrGMFN 



X C 
ISK 
(Tl 

GIN 
DO 
BE 

D 

F 

FN 

UNT 

FIL 

R 
D 

GIN 

0ISKWAlT(-SKEL.tCF3#30»T2)J % GET SEG. 

F0RGETFSPDISKCT2)i 

IF (T2 I« SKELr29]) # O THEN % MORE OF EM 

SKELr29] t« Tl 4. i; X ADDR, IN CODE FILE 
DlSKWAlT(SKEL.rCF]»30, I jB(H[Tl DIV H[8] 

+10] + Tl MOD Hr8l))) 

D 

cessing Label equation infoi 

ABSf *P(DUP))I % NrW FORMAT SEG. ZERO 

i« II x Mark as prOa, ftLf 
o,trF].30,HriO]); % rewrite sfg, zeRo 

TO LIBRARY PROCESSfNG* 



LIKELY ERROR IN DiSkCLOSE WHICH 
TS TO BE LEFT rN USf IF A COMPILER 



38363000 
38385700 
38446500 
38447000 
38447500 
38448000 
38448500 
38449000 
E38449500 

38450000 
38450500 
38451000 
38451500 

38452000 
38452500 

38453000 
38453500 
38453600 
38453700 
38454000 
38454100 
38454500 
38455000 
38455500 
38456000 
38456500 
38457000 
38457500 
38458000 
38458500 
38459000 

38459500 
38460000 
38460500 
38461000 

38461500 
38462000 
38462500 
38463000 
38463500 
38464000 
99990000 
99990100 
99990200 
99990300 



n 

D 
D 
D 

D 

n 

D 
D 
D 

D 

n 

D 
D 
D 
D 

D 
D 
D 
D 

n 

D 

n 

D 
D 
D 
D 
D 
D 

n 
n 

D 

D 
D 

D 
D 

D 
D 
D 
D 
D 
D 
D 
D 

n 

D 



146 
146 
146 
146 
146 
146 
146 

146 
146 
146 
146 
146 
146 
146 
146 

146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 

146 
146 

146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 
146 



$» GETS DS-ED FnR DISK nVfRFLOW. iM ADDlTlnN» ThE PflTCH USES 99990400 D 146 

SI THIS OPPORTUNITY To pEWrITE THE EXCEPTIONALLY BAn LOGIC 99990500 D 146 

Si CONTaINfo in this routine. 99990600 146 



SfPATrH NUMBER 147 FOR tSSMCP CONTAINS 2 CARDS D 147 

UPTlMEOUTrMiX) J 24035300 D 147 

DOWNTIMFOUT(MIX)> 24096B00 D 147 

tl BY JTC - MSA CENTRAL, SOFTWARE FLASH 16? D 147 

$l^t******************* ************** *********************************** D 1^7 



J#PATcH number 148 FOR TSSMCP CONTAINS 1 CARD D 148 

TfMP * F * K rCTFll 18273055 148 

Si by JTC - MSA CENTRAL'.' SOfTWARf fLASH 163 148 

Si SEF ALSO DREXEL U. PaTChES 601»66?»748 D 148 

$1********************************************************************** 148 



S#PATCH NUMBER 149 FOR TSSMCP CONTAINS 7 CARD. 

DS Is 8 DECI DS l« 2 LIT •^ ♦"I 
DI := DI "• lO> OS «» 7 FILL» 
ST t'm F> ns I* 10 CHRI 
BFftTN StIbLOC aI nSl«8 DEO DSI«2 LTT ♦♦ ♦"! 
D1|bDI-10| DSlafl FILL! At«OlJ 
DI t»Tl SI ,«AI DSl»10 CHRI 
TWX0UT(T»10»0«irCTF]Rlr2l47in,R6)j 
SI DATE 2/11/76 
$1 BY JTC - MSA CENTRAL 
SI 

SI THTS PATCH CAUSES AN EXTRA BLANK TO BE TYPfD OUT AFTER THE SEQUENCE 
Si NUMBfR TS SEQUENCE ModfI THIS IS CONVENtfNt fOR LINING 
SI INPUT WITH PREVIOUSLY PRINTED OUTPUT SINCE ThE LiST ANd PRiNT 
SI COMMANDS OF CANOF PRfNT AN EXTRA SPACE AFTfR THE SEQUENCE NUMBER. 
$1****************** ******************************************** ********gg9999g^ 



SfpATcH NUMBER 150 FOR TSSmCP CONTAINS 12 CARDS, 000(50000 D 150 

STREAM(LCFLG|»L0N6CARRlAGErSl 1 # V i ■( V I «GETAREA ( 0) ) + n > 038261 00 D 150 

RErIN 03826200 150 

nS 1* 6 LIT ♦♦DEL<<#'»; 03826300 D 150 

LCELR (DS In 3 LiT "K^jl 03826400 D 150 

nS Is LIT LFFTaRROWi 03826500 D 150 

ENnI 03826600 D 150 

STREAM(LCFLGt»L0NGCARRIA6E[Si ],V««V+ni O39SO0OO D 150 



00000000 


D 


149 


03733500 


D 


149 


03734000 


D 


149 


03735000 


n 


149 


19559120 


D 


149 


19559140 


D 


149 


19559160 


D 


149 


19559200 


n 


H9 


99990000 


D 


149 


99990100 


D 


149 


99990200 


D 


149 


99990300 


n 


149 


99990400 


D 


149 


99990500 


D 


149 


99990600 


D 


149 


999»9999 


n 


149 



Si 
Si 
Si 

Si 

Si 
Si 
SI 



DATE 7f\\nh 
RY JTC - MSA 



BEGIN 
nS IS 

LCFLG 

ns i» 

fNdj 

CENTRAL 



S LIT -<<»"') 

(OS 1= 3 LIT ♦•<•')} 

Lit lettarrowi 



ThiS Patch Anns an eyTRa nrLAY for terminals 

AFTER THE CARRIAGE RrTlIRN TYpED OUT WHEN ThE 

lefTarrow, This prevfnts the beginning of sE( 

FROM being lost IN SrQUENCE MODE. 





03900100 


D 


150 




03900200 


D 


150 




03900300 


n 


150 




039IOAO0 


n 


150 




03900500 


n 


150 




99990000 


n 


150 




99990100 


n 


150 




99990200 


n 


150 


wrTu long carriages 


99990300 


n 


150 


USER types a 


99990400 


D 


150 


UENcE NUMBERS 


99990500 


D 


150 




99990600 


D 


150 



SfPATcH NUMBER 151 FOR TSSMCP CONTAINS 38 CAROS^ 



00000000 D 151 



. ITSaLLBATCH 



IF PCOfRDS) 
RFGIN cLIcK 



« TriGLF.tl6j 1]# 

ENn 

ELSE 5! ITS RfLOW THE FFNCr 
TF TTSAllBaTCh THEN % WE 
BEGIN 

TANKStLLl t» NABSfT)! 
CLICK IB CLOCK + P(RTR) + 128| % 
SLEEPCO#0)J % WAIT FOR TIME OUT, 
GO TO START} X TRY AGAIN. 
FNDI 
< FENCE THEN % BELOW THE FENCE 
I* CLOCK + PCRTR) + 1023 + 102.3; % 34 SEC. 



Wli.L WAIT AWHILE 



2 SEC 



IF 

SURROUTi 
BEGIN CL 

Tank 
ir w 

IF H 

CLEA 

TiNK 

ENn Of c 



SVOIDT 1 
BFLO 
IF F 
IE J 



SI DATE 



cOMPLEXSl,FFPCfNPuTANK[T],lNPUTN OR TfRMSET(P IMt X ) ) I 
ENn ELSE 

rMFMrMix#0]].rrF] > fence or itsallbaTch Tmen 

IE T < PjjOOOO OR T > PlOOOOO THEN 

NE CLEA^ALLTANKSI 

EARTANK(L06LTNE,0)I 

S[ T fsLOGLlNEf [4oifl]3t»f*P(DUP))l;0[CTC]I 

ORKING THEN X MaKE SURE HARRY ISnT 

ARRYSTA b I THEN % DIDDLING OUR LiNE 

COMPLEXSLEFPfNoT WORKING OR HARRYSTA 
RINPUTANKI 
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$1 BY JTC - MSA CENTRAL CPATCH rFCEIVFD FRoM STfVE kELLEY - USSG U.K.) 99990100 D 151 

SI 99990200 D 151 

$1 THIS Patch allows tht ffncf to pf moved to thf top of memory* 99990300 n i5i 

$1 SUPPRESSTNG ALL SWaPtNC,; ALL JOrS ENTERFO aRf TRrATFD AS BATCH 99990400 D I5l 

SI JOr - RfoARDLFSS Of run, FXFCUTf or COMPtLf. 99990500 D l5l 

SI 99990600 D l5l 

St canof programs using Terminals may run with the fence at 3?k» 99990700 d isi 

SI however, they will NnT BE SWAPPED AND ThF JOBS MtGHT BE SCHEDULED 99990800 D 151 

SI SlNCF ALL JOBS ARE TrFATED AS BATCH. 99990900 D I5l 
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$#PATrH NUMrfR 154 FOR tSSMCP CONTAINS 30 rARnS. OOOOOOOO H 154 

« 48038120 D 154 

X IF Wf reach this POInT THLn this job Has used 48038130 D 154 

* UP Its TIMf SLItF (EITHfR processor or I/O^ or 48038l4n n 154 
SVOinT 48038401 48038149 n 154 
% ThtS job has been DOtNg EXCESSIVf overlay AMD 48038J50 n l54 
X DESEpVFS ANOTHER CHUnK nP mEmORY' IF THE 48038160 D I5a 
X PROGRAM HAS USED UP ITS TIME SLIrE* WE WILL 48038170 D 154 
X SWAP, TT OUT TF THFRF IS SOMF OTHfR PROgRaM THAT 48038180 D 154 
% fS RrADY TO RUN AND CAN USr THIS GUYS CHUNKS, IF 48038190 D l54 
% THE PROGRAM HAS BEEN DOING EXCESSIVE OVERLAY AND 48038?00 D 154 

* THE PROGRAM HAS ROOM FOR EXPANSION AND DIOnT USE 48038210 D 154 
X A Max CORF CaRD» we will SWAP IT OUT 48038220 D 154 
X ANn !HWaPPtNGTO will aRRaNgf TO OpTaIN aNOTHFR 48038230 n 154 
X CHUNkI 48038240 D 154 
X 48038250 D 154 

IF PfOfPDS) > FENCE THEN X SWAP ,j0B 48038260 D 154 

BEftiN 48038270 D 154 

FOR NT2 i» SCrPlMlX] STFp 1 UNTIL LCtPlMiX] DO 48038280 D 154 

IF ACTlVEtNT2] > 1 THEN X SOMEONE CAN USE THIS 48038290 D 154 

BEGIN % rHUNK, 48038300 D 154 

SWaP(TIMEN0»1)J % 48038310 D 154 

GO TO return; 48038320 D 154 

FNDI 48038330 D 154 

IF OLAYCTRtPlMIX] < THEN X fXCESSIVF OVERLAY, 48038340 D 154 

TF DONTfXPaNDBITSCPIMtX] « THEN % EXPANDABLE 48038350 D 154 

PEGIN 48038360 D 154 

SWApfTlMEND.Dl % 48038370 D 154 

60 TO return; 48038380 D 154 

FNDJ 48038390 D 154 

FNn> 48038400 D 154 

SI DATE 3/t?/76 99990000 D 154 

$1 BY JTC - MSA CENTRAL 99990100 D 154 

*' 99990200 D 154 

$1 thts Patch prfVfnts I job from rfing swappfD out to obtain a new 99990300 d i54 

SI chunk whfn tmf job Cannot be expanded. 99990400 d i54 

$ %********* ********** **0**i¥****#********** lit** #*^***^**^iii>*^i*itc**^,i^**t,ttiii^ 154 
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DCFINf 00017005 D 155 

TYPEnSPArF(TYPEnSPACrlfTYPF0SPACF2) t 00017010 D 155 

f6ETSPACFrTYPEDSpACF1.TYPEDSPACE2»0)+2)* J! 000l70t5 D 1 55 

•ARRAYDEScf ARRAYDESC1,ARPAYDESC2) « 00017020 D 155 

aM[GFTSpACF(ARRAYDESCl»ARRAYDESc2.0)+2]] & aRRAYDESCI tSIZE3)# X00017025 D 155 

»SAVEARRAYDESCf SAVEARpAYnrSClfSAVEARRAYDFSC?) » 00017030 155 

aMrGFTSPACF(SAVFARRAYDESCl.SAVEARRAYDFSr2»n + 233 00017035 D 155 

& SAVEaRRAYDeSci rSiZE])* X00017040 D 155 

» 00017045 D 155 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%00017\00 155 
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%%t%%%%X%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%000\7700 D 155 
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«♦ *X00017740 D 155 

%%f.%%%%f%%XX%X%%%%%^%%%rf%t%%%%li:%%%%%%%%%%t%%t%f%%%t%%%%%%%%%%%%%%%%%%%%000 177 60 n 155 

* 0001776? D 15s 

X FIELDS OF MFMOPY LINK OF ALL ARFAS 00017764 D 155 

X 00017766 n 155 

FIFLd 00017770 D 155 

ARFAAVATLF = OljOj X B FOR IN-USf ARtAt a 1 FOR AVAIL. AREA 00017780 D 155 

»ARFASAVFF e 0?|01 X » 1 For IN-USE SaVf ARFA» » O for OLAY ARFA00017790 D 15S 

•ARFATYpFF * 03|06 X TYrf OF AREA tSEF ABOVr) 00017800 D 155 

»4RfaMtXF • 09,06 % Mtx jNnFX OF OwNrR Op aRfA 00017810 n 155 

• aRfABACKHNKF « l8jl5 J! ADhReSS OF PRfVtOUS ARfA 000l76?0 n 155 

.AREAFWDi.InkF s 33115 % ADDRESS oF NEXT AREA 00017830 155 

I 00017840 r> 155 

$ VOinT 00068001 00059000 155 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%00060000 D 155 

X* ♦X00060020 n 155 

X* MISCELLANEOUS FIELO DEFINITIONS ♦X00060030 D 155 

X* *X00060040 D 155 

%%%%%%%X%%ft%%%rt%%%%%%'r%X%%%%%%%%%%%f%%%%%%%%%%%%%t%%%%%%%%%%%%%%%%%%l%000f,0060 D 155 

00060070 155 

FIELD 00060080 D 155 

FF ■ 16115 J! 00060090 D 155 

»CF ■ 33M5 % 00060100 D 155 

»CTF B FF X 00060110 155 

»CTC ■ CF X 00060120 155 

»Mj;ff « 16101 X 00060130 155 

J 00060999 n 155 

X OOO61OOO D 155 

X FIELDS OF AlT ENTRY OOO61O1O D 155 

00061020 n 155 

FIELD 00061030 D 155 

FtLfBIT m 01101 X 00061040 D 155 

,0WNBIT 9 0?JOl X 00061045 D 155 

•DIMENSIONS ■ 03105 X 00061050 D 155 

tBLKCNTR » 08M0 % 00061060 D 155 

•Mom « 18115 X 00061070 n 155 

I 00061999 n 155 

X 00062000 D 155 

X FIELDS OF DATA DESCRIPTOR 00062010 D 155 

X 00062020 155 

FIELD 00062030 D 155 

X FLA6BITF «b OOtOO X 00062040 D 155 

X DaTaBITf m OltOl X ALWAYS OFF FOR A DATA DESCRIPTOR 00062050 D 155 

PBIT « 02101 X ON IF DESCRIPTOR POINTS Tfi AREA OF CORE 00062060 155 

'SiZf ■ 08J10 X SIZE OF ARRAY ROW IF ARRAY DESC, 00062070 155 

X FOR INDEXED DATA OESC. OR NAMF DFSC. 00062080 D 155 

X »M0MaDDRFSSF ■ ie»l5 X address of mother DFSrRlPTOR. 00062090 D 155 

X »AnDRESSF » 33115 X IF PB|T |S ON THEN TH|S FlELD CONTAINS AN 000*2100 D 155 

X ACTUAL CORF ADDRESS; IF ThE PBIT IS OFF THEN 00062110 D 155 



X 



% IF THF VaLUF or THIS FlELn IS GREATFR THAN 00062120 D 155 

% OR EQUAL TO 5l2 THFN THE FIELD CONTAINS A 0006?130 155 

% PALOC ADDRESS WHtCH CAN Br USED TO LOCATE THE 0006?140 D 155 

% DATA IN THE oVERi.AY DySK AREA ASSIGNED To THE OOOftPlSO D ISB 

% THE PROGRAM, IF THE VaLUL OF THE FIELD IS LESS00062160 D 155 

% THAN 512 THEN THTS FirLD rONTAINS A CODE 00062170 D 155 

% INDICATING THE STATUS OF THE AREA. 00062180 D 155 

% NEVER ACCESSED OVERLAY AREA, 00062190 D 155 

% i NEVER ACCESSED SAVE AREA. 00062200 D 155 

% 2 NEVER ACCESSED OVERLAY AREA WHICH 00062210 155 

% WHICH IS ASSIGNED To AUXMEM, 00062220 D 155 

% 5 INDICATES OVERLAY IS CURRENTLY IN 00062230 D 155 

% PROCESS FOR THIS AREA 00062240 D 155 

% 6 INDICATES OLAY HAD IRRECOVERABLE 00062250 D 155 

X ERROR When overlaying this AREA, 00062260 D 155 

% THE NEXT ACCESS To THE AREA WILL00062270 D 155 

% CAUSE THE Program to be termi- 00O62280 d 155 

X NatfD^ 00062290 D 155 

I 00062999 n 155 

% 00067000 D 155 

% MISCELLANEOUS DEFINES 00067010 D 155 

% 00067020 D 155 

DEFINE 00067030 D 155 

CURPLKCNTR ■ 16 * X 00067040 D 155 

»AlTNDX m 6 * % 00067050 D 155 

»FTF a l6M8il5 * % 00067060 D 155 

»FTC n 33118115 # X 00067070 D 155 

»DfLTA « l{ t % 00067080 D 155 

I 00067999 D 155 

T l« GFTSPACFf S-li SP0UTMSrAREAV*64» 0) + ll 02134300 D 155 

MrMESSAGE-n^TAREATYPEF] !■ SPOuTmSGAREAV I 02134710 D 155 

A»sTYPEDSpACE(15.SP0UTMSGAREaV)i 02205475 D 155 

S Is IE MrTl.AREATYPFF « CoDEAREAV THEN 02216000 D 155 

MrT + n.tCF] ELSE 0|X 0?2l60l0 D 155 

ELSE P(MtT«.23,AREATYpEF,DUp) # TyPE7 I NTArEAV AND 02216600 D 155 

P(XcH) # TYPE13INTARFAV) OR L » Ol 02216610 D 155 

TPl«rMrTAleTYPEDSPACE<5l3,MDUMPAREAV)33 02434430 D 155 

& 513[SIZE] K 5r21l45J33JJ! 02434435 D l55 

LBL «« TYpEDSPACEMO.LABELAREAV))X 02639000 D 155 

lNpUTANKCSTAl.rFF]««R««f IF Tl qTr THEN Ti ELSE O36I88OO D 155 

TYPE0SPACE(32.0BJ0BINPUTAREAV))+2I O36I88IO D 155 

LASTSFOrOl.tFFJ !» CS « "TYPfDSPACf 03638500 D 155 

(32,rANDFTNPUTARFAV))*2» 03638600 D 155 

* VOinT O58O42OO D 155 

PfPlMiX)! PiMlXtsOl 05811460 D 155 

Li»GETSPACE(A»SCRATCHDIRAREAV»SCRaTCHSaVE)i 05811470 D 155 

INBUFF !■ GETSPACEdl iI0BUFFERAREaV»1i+2JX 07086000 155 

FIRSTCARD I* GETSpaCF(10»C0NTR0LCaRDArEAV»1)+2>X 07087000 D 155 

ELSE BEGlM OUTBUFEOLn l« OUTrUFF I* 07095000 D 155 

GETSPACE(60»I0BUFFFRARFAV.n + 2|!i; 07095JO0 D 155 

H »• SAVEARRAYDESCf 30,DiSKhfADERAREAV)|X 07097000 D l55 

ShEAT J. ;MrF«»TYPE0SPACE<31,SHFETAREAV + 64)]] i 3O r 5 I ZE ] I J:07256400 D 155 

SEGO I* TYPEDSPACEt30fSEGZERoARFAV*64WJ! 07257400 D 155 

H !■ CIDRoWrR] l« rMfSl* 07433000 D 155 

GETSPACE(94#CIDR0WAREAV+64»1 )+2l] & 94 SIZE* 07433100 D 155 

Tf«GETSPArEf 13»C0nTROLCARDAREAV+64#O)+4I 07446000 D 155 

SHEAT ♦ rMtFlsTYPEDSPACEf 31iSHEETAREAV+64)])&30tSlZEJl08274?50 D 155 



SrnO j« TYPFDSPACF(30»SEGZER0aREAV/ + 64)J1: 0827'!>SOO n 155 

Cl«TYPEDSPACrf5»MAlNTPUFFAREAV)j« 08385100 D 155 

RFGIN Rl"TYPFnSPACE(5fMAlNTBUFFAREAV)JX 08410000 n 155 

Sl»rMrTYPFnSPACFC3l»SHFFTAREAV)l] R 30[SI7E]>S: 08881000 D 155 

DLNKisrMrTYPFDSPArFr31»SHFETARFAV)]] S sOrSIZrlll 08930000 155 

INTRnSC I» rMrlNTL0Cl*GFTSPACF(MAXlNT+Ti7SjZF» lNTARRAYARFAV,l)+2]]i 0950A000 D 155 

BI«CGETSPACE:C9i»I0BUFFeRArEAV#1) + ?) It 90[StZE];X 1?67?500 D 155 

L0GINF0|=SAVFARRAYDfSC(?0»L0GAREAV)>X 12848500 155 

NT1I«GFTSPACE(5,MATNTBUFFAREAV+64.0>+2J 14411820 D 155 

TlsGETSPACF(l2»C0NTR0LCARDAREAV + 6/i»0)*4>X 14533000 D 155 

SEG ts IF M[R]!AREATYPFr « CODEARFAV THEN MtR+ll.tCF] ELSE 01 16853000 D 155 

ELSE P(MrR"'?].AREATYpEF»DUp) * TYPE7 1 NTaREaV AND P(XCH) * 16854200 D 155 

TYPE13INTARFA\/) OR LOr.N « 0| 16854300 155 

BUFF t= TYPF0SPA(!f(60.KfYtNbufFARFAV) + Ij 16954200 155 

FHlefMrFlsTYPEnSPACEf TfMP,DISKHEAdERARfAV)i] & TeMPT S T ZE3 I X 18285?00 155 

FH »« rMCFl«TYpFDSpACE(30»DISKHEAnERAREAV)i] & 30 SIZEl 18286000 D 155 

STRFAM(A»B.T|«T|*GfTSPACE(10»C0NTR0LCArDAREAV+64#0)+4)| 18438120 D 155 

Tl«GFTSPACECI+5fCONTR0LCARDAREAV+64.0)+4HK 18520300 155 

S la [MrTYPFDSPiCEf 31fSHEETARFAV)]] & 30[8M8llO]|« 20026600 155 

HDR J« GETSPACEf 30.nlSKHEADERARFAV.l)+2l 20028700 D 155 

FpB is TYpEDSPACE(SF60f5] InX if FPBAREAVji 20049000 D 155 

FR|i«GETSPACFf SEG0C7J.rcF]xETRUNG»FPBARFAV.li*2| 20049800 D 155 

LqL|«5ARRAYDFSr(30»LRLFQNARFAV)lX 20059100 D 155 

LBLl-ARRAYnrSCf 30,LrLE0NAREAV)»X 20069800 155 

SEG0t»ARRAYDE5Cr30.SEGZER0AREAV)>« 20110400 D 155 

SiNlFOtMlXl.tCF] !■ (STaCKLOC I* 20116100 D 155 

GETSPACE(SEGor3l INX SC?ll INX 64» ST ACKpRTAREAV » 1)) * 2> 20116200 155 

TRPC43l»rMrTl«GFTSPACE?SEG0rn.rCFJ»SFGnlCTAREAV#l)+2]ll 20124900 D 155 

STRFAMfnt»nAL0cR0wrMTX3l«SAVFARRAYDFSCrnAL0cSlZr»nAL0cR0WARFAV))liK 20127300 155 

VOin 201J7400 D 155 

STREAM(D l» UVSpACE le TYPEDSpACE( UVS I Ze » UVroWAREAV ) ) | 20156800 D 155 

MtHnR-2] l» C*P(OUPn * JARROWaREaV ARFATYPFFI % 20169700 D 155 

STRFAMfQi»F5R0WCMlX]l»SAVFARRAYnFSC(4,FSAREAV))|X 20183610 155 

TRPr3]««rMr6FTSPACEf l.FPBAREAVH)*?]] ELSE % 20187400 D 155 

BEGIN CARnI[33«l5] l« TYPEDSpaCFC 1 3» CnNTROLC AR0AREAV)+2I 20600950 155 

M»GETSPArE(30,JARROWAREAV8MlXrCTF3»1 )42J 21304000 155 

HaGETSPACE(UVSlZF»UVR0WAREAV&MIXrCTF3.1)*9l 21308000 155 

ShfAT l-rMrFl-TYPFDSPACEf 31#SHEETAREAVf64)l] & 30f 8 I 38 « lOl J « 22069050 D 155 

SFGO iB TYPEDSpACE(30.SEGZER0AREAV-»'64)>« 22069100 D 155 

IF (MIX |« LiNk.AREAMlXF) « THEN Gn TO MfPI 22297000 D 155 

IF PCLTNK,AREATYPFF»DUP3 ■ CODEARFAV Or P(XCH) ■ 22303000 D 155 

TYPF13INTARFAV THEN 60 TO COOFJ 22303100 D 155 

IF LINK.AREATYPEF • TYpEl 3 INTAREAV ThEN % TYPE 13 INTRINSIC 22356100 D 155 

IF P(LINK,AREATYpfF»DUp) « TYPE71nTAREaV Op P(XCH) » 22386000 D 155 

TYPFHINTArEaV THFN go to INTRINSIC! 22386050 D 155 

IF LiNK.ARFATYpFF » DATAARFAV THEN % OveRLaYABLE MrP DATA 22386100 155 

MrfiETSPACr««»T]l«f*PCDUP))iTYPErARFATYPEF]&MTXrAREAMiXF]l 24400000 D 155 

BEGIN TMPI»GETSPACFfFPBPTR+ETRLNG»FPBAREAV,l)+9U 28050800 D 155 

H»»rM(TYpEDSPACE(4?,,DISKHEADERAREAV)]] 4 30[8l3fttl03U 28070000 D 155 

Tl«GrTSPACF(30»nlSKHEADFRAREAVtl^+2lX 28288000 n 155 

TMp»mr,ETSPACE(12fC0NTR0LrAR0ARFAV + 64,5) + 4>X 28435000 155 

LAB|bARRAY0fSCm5,LaBFLAREAv)I|; 28451800 D 155 

FAIpTYPEDSpACEfTMPt«TEyp + (TEMP DIV ?) + 9»0aTaAREa V ) * 11 X 28452600 155 

CrAj"SAVEARRAYDESCC30«ESPDlSKAREAV)|X 28455400 D 155 

FAl«TYPrnSPArE((BUMpFAl"FASZl«TF MAX > 128 THEN 128 ELSF MaX)+ 28456800 155 

fFAS7 DtV 2)+2»DATAAREAV) + 1H! 28457000 D 155 

SisARRAYOEScf 30,ESPnTSKAREAV)>!l! 28855000 D 155 



BFGIM MCA|,PHA + I]*fCURL0C*QFTSPACE(BSlZE + 4,I0Bl)FFERAREAV.l) + 2)*2l 37406000 D 155 

M[Tl |«ALPHA-?3!«M OR ( GETSPACE ( ( T 1 » «M [ T i ] . S I ZE ) +4 . 38107000 D 155 

LABFLAREAVM)*4) d TITStZf] & CNTLR I TSf FTF 3 1 38 107100 n 155 

BE6TN NT3 i= TYPEDSPACFM 3» LABFLAREA V ) + ? J X 381*7300 D 155 

M[Ti i»AI,PHA-2ll«M OR { GETSPACEf ( T 1 I *M t T i 1 , S I Ze ) +4 • 38205000 D 155 

LABELAREAVM)+4) K TICStZEI & CNTLBlTSrFTF]i38205lOO D 155 

5Ffi0l«CM[TYPFDSPACF(6?»sEGZrR0AREAV)]]i30[SIZF]> 38434000 155 

TF rOB0L>0 OR FIB[43,C7in THEN 39304000 D 155 

MTFIB INX NOT 13.AREATYPEF U COBOLF I rAREAV 39304500 D 155 

EUSf 39304600 D 155 

MrALPHA-7i,AREATYPEF »■ AL60LF IRAREAV » 39305000 D 155 

KFY {a r.FTSPACE('5,MAlNT8UFFAREAV + 64»0) + ?l 41312700 D 155 

KEY J« GETSPACEf„5fMAINTBUFFAREAV + 64»0)+9> 41314000 D 155 

Ti jw TYpE0SpaCE(i"5»MA!nTbUFFAREAV)U: 41323130 155 

MLA IS [MtAI«GFTSpArF(33»MAlNTRUFFARFAV, 0^+33] R 32tSlZF3|X 41328600 D 155 

I««(T«*GFtSPACFN+2»TNQUIRYBUFFaRfAV#0)+1)+3 AND NOT 3| 44041000 155 

MrC«»J«aTYPEDSPACF(IfMrPTABLFARFAV)*Til»0; 44153500 D 155 

IJI«GETSPACF(ZiAVTABLEAREAV,i)+?l 44240840 D 155 

SrRATCHVFC««rMrGETSpACF(10»SCRATCHDlRAREAV»RCRATCHSAVE)+233 44241180 155 

t 10 tToSlZFll 44241185 D 155 

BEGIN 48052000 D 155 

P(NT4,BL0B.NTl,GFTsPACF(NTlf STACKAREAV»3))>48052100 D 155 

$» BY JTC - MSA CENTRAL 99990000 D 155 

$t DATE 03/17/76* UPDATf 11/05/76 99990100 D 155 

$1 THTS PATCH CAUSES Thf TSSMCP TO TYPE MANY oF THE MEMORY AREAS 99990200 D 155 

$« THAT WERE LEFT UnTYpfD BEFORE. THIS PRIMARILY BEmEFITS THE DUMP 99990300 D 155 

SI ANALYZER. 99990400 D 155 

$ I ^,^i^t*,iii***m***********m******************** *************** ****'^****** n 155 



$#PATcH number 156 FOR TSSMCP MARK XVl CONTAINS 5 CaRDS, D 156 

IF HFAOFR.tCFS GEO 64 THEN FORGETSPACEf HEAnER ) I 12561600 D 156 

*VOtDT 12572000 D 156 

tVOlDT 1?573000 D l56 

PCD l?573500 D 156 

ELSE 12574000 D 156 

SI RY JTC • MSA CENTRAL 156 

SI SOFTWARE FLASH #164 aNo CORRfCTTON FLASh #190 D 156 

$t*********************^*************************#*H:******************f^* jy I 5^ 



SfPATcH NUMBER 158 FOR TSSMCP CONTAINS l8 CAROS. 

ARRAY W0RKERSTACKr*3l % DESC, To OLDW I ERDHAROI.DS STaCK, 
ARRAY ESPTA8t*3| REAL ESPCoUnTI % 

GFTESPDISK l» ( (P(OUP) . t CF 3-fSPTAR . [Cf3 )x8 
S t* (FSPTAR.tCFU5,r30tl53) « St30l3l| X 
DFFfNF HARRYSTa « WORKERSTACKf 53#, X rTa 
I |» Wl T i» P(,ESPTAB)I FIXI % 
I l« lOOl T |c P(.WORKERSTACk)I FtXI % 
I l« 0> 
FOR T J* 1 STEP 1 UNTIL NUMSTACK OO 



00000000 


D 


158 


00299500 
00399000 
06031000 
06038000 
14344100 
44173200 


D 
D 
D 

r» 
n 

D 


158 
158 
158 
158 
158 
158 


44179100 
44179200 
44179250 



D 

n 


158 
158 
158 



RFr,TN 4^179300 D l58 

MFJl la H % LINK TO PRrVlOUS STArK IN Q. 44179350 D 158 

M[J+n !■ WoRDOFFASEI % clear STArK 44179400 158 

M0VE(rTaNDARDSTacK-2i»J+1,J + ?)| 44179450 158 

I »• JJ « REMfMBFR where THfS STArK IS 44179500 156 

J «» J ♦ STaNdAROSTACKJ % COMPUTE ADDRESS OF NEXT STAC4417O550 158 

FNDJ 44179600 D 158 

STACKQ «« II % POtNT TO FiRST STACK IN Q, 44179650 D 158 

M0VEf99,n»W0RKERSTACK,tCF]»T+l)» XTO SPOT POSSIBLE OVER 44189600 D l5fl 

$1 DATE 3/19/76 99990000 D 158 

$1 BY JTC - mSA CENTRAL 99990100 158 

*« 99990200 158 

SI THIS PATCH CAUSES DESCRIPTORS TO RE BUI|,T FOR THf WORKERSTACK AND 99990300 D 158 

$» ESpTaB To help the dump analyzer ANALYZE ThE MCP SaVE AREAS. 999^0400 D 158 

$t **************** *****it**it^i^*******>ti**'^***^,*t******i^***************t*^ n 158 



S#PATrH NUMBER 159 FOR TSSMCP CONTAINS 25 caRdS 159 

REAL PROCEDURE T NPUTSCANf MODE » SOURCE i DEST , nUm» FLAGS t SEQMODF ) J O3O71OOO D 159 

Value num»flags,seomode> 03072000 d 159 

REAL MODE#SOllRCFfnFST»NUM»FLAGS»SEQMODEl 03073000 159 

RFAL PROCEDURE INPUTSCaN t MODE .SOURCE »DEST # NUM ,FLAr,S»SE0M00E ) I 03276800 D 159 

Value num.flags.sfqmode; 03277000 d 159 

real mode.source»nest»num,flagsfseomodei 03277200 d 159 

U»«(nEST»f30l3]*DESTt3ni33ll5]3-(INPTSCtt30l3]|llNPTSCt30t33n5]); 03290600 D 159 

IF Unl AND SEOMODF XU-1 WHEN ONLY "*'♦ LEFT IN RUF.. AND IF SFQMODE 03290700 D 159 

Then j:trije. Then usfr backspaced to front of buffer. 032908oo d i59 

BEGIN 03290810 D 159 

STREAM fAI«0IDEST)i 03290820 D 159 

BEGIN DitsDI-ll XMaKE iNpuT I.OOK LtKE A NULL LINE 03290830 D 159 

DS»«*2LtT" *.**}% fSPACE) TO PRfVfNT rANDE FROM 03290840 D 159 

Al»Dn XBELTEVING ThIS IS ENn OF SeQ MODE 03290850 D 159 

FNDI 03290860 159 

PftDEST1.STD5) 03290870 159 

RO AUTi 03290880 D 159 

fNd> 03290890 D 159 

iNPUTScANiaUl 03290900 D 159 

NH»TNPUTSrAN(M0Dr»S0Rr»A3»(MrAl3.tFFl-X,r2l8])»FLAGS»0)| 03307000 D 159 

Nl t»TNPUTSCAN(M0DF.50Rc.A3.MrAl],fFFl.FLAr,S»0iJ 03313400 D 159 

DFFtNE SEQMODE • IF STATAB,STATlONTYPE#TWX THEN FALSE O36146OO D 159 

ELSE rLlNEDlSCtSTA]»TWX AND SEoARRAY t STA ]#0) f I 03614700 159 

NUM|«NUM*INPUTSCfiN(M0DE«S0URCE»J»BUFSZ«Tl»FL4GS»SEQM0DE)l 03618200 D 159 

NuM|»NuM+TNPijTsrANfM0DF»sOuRrF»JtBUFSZ»FLAGS,SFQM0DF)» 03634000 D 159 

«» BY DJZ-MSA CENTRAL D 159 

SI SOFTWARE FLASH #175 AND CORRECTION FlASh #l8«; D 159 

SI SOFTWARE FLASH 200 CORRECTION D 159 

H*****************************^,***^*^f****H:tHH,*^,***^itit*****i^**it:******i),:t,* f) 159 



SfPATrH NUMBER 160 FOR TSSMCP CONTAINS 12 CARDS, 160 

BFRlN 06468000 D 160 



TF Pr0»RnS) rjR FENiCE 06470000 n 160 

SVOIDT 06471000 D 160 

rLsF rOMpLFXsLFrPaR OR RrPLYtPlMIX] GTR OR TFRMSET (P IM I X ) ) ) > 06*72100 n 160 

SVOinr 0647?501 06472200 n 160 

tF JARrPlMTX,9]lSYSJ0BF NEQ LTBMATNCOnE THfN GO fNlTtATEJ 06473100 D 160 

EXITi ptp«RCWtCTC3»0»RnS.O»XCH,p&p[CTF].STF)| 28101200 D 160 

SVOIDT 37180675 D 160 

IF [MFMtPlMtx.MLlNKlJl.CcF] GEO FfNcf THEN 37226100 n 160 

tVOlDT 37226150 T) 160 

SVOTDT 37226500 D l60 

«V0IDT 37227500 D 160 

SI BY JTC# kFK - MSA CEwTRAL* SOFTWARE FLASH 176 D 160 

$t***tk*******^i)^********^t*ti**t*****Jt' ********* *******************i********* h 160 



$#PATfH NUMBER I6l FOR TSSmCP CONTAINS 1 CARD 

BOMBt« IF 0U»18 THFN FORgETTTI* 
it BY DJZ - MSA CENTRAL,' SOFTWARE FLASH 177 

$tilf**'t,*W***************i^***************************^,******************** 



07231000 



n 

D 




161 

161 
I6i 
161 



$#PATrH NUMrfR 162 FOR tSSMcP CONTAINS 3 CaRDS. 162 

IF (NT9l«P).r?»1 ] THEN XlEfT At 12626500 1?635500 16? 

SVOIOT 12638000 D 16? 

BEGIN IF f I0Dl*T.r9|?4l DIV 55»«0 THEN XsPaCE FORWARD 12650500 D 162 

SIPY nJZ - MSA CENTRAL^ SOFTWARE FLASH l80 p 162 

$i***^,***************#iif^i*******0*ii*4i**m***4tifi^'^*^**:^^i^,^:i,#*iti*i#i**it,^!^*^i^i^i,^)tf p, \^2 



S#PATcH number 163 FOR TSSMCP CONTAINS 3 CARDSi 



163 



$ SET OMIT s PacKfTS 20034060 D 163 

FLSF FORfiETSPACF(HDR)) 20034070 163 

S POP OMiT 20034080 D I63 

St BY DjZ - mSA CENTRAL. SOFTWARE FLASH I83 D 163 

$t***^,*m***)if***}tt*******^*iiiiti>^***,tt**m************************************* ft 163 



$#patrh number 164 for tssmcp contains 16 caros, 
Real fRi»fR2.fR3i labfl. frsysi 

ERll*")* ♦•jX 

OR SYSTFMFlLF(rMMrO].CMMrn) ThEN« 

BFftfN fRSyS« ERlt»*'SYSTEM ••IER2»s"F1LF)* " I GO ERROR ENDI 
BEGIN FR1»«"SAmF FI "I ER? » .•'LE )* "J CO ERROR END 
IF TYpC.USEV AwD MropTN+2]<0 THENI 



00000000 


D 


164 


20511152 
20511175 
20511188 
20511190 
20511303 
2051131? 


n 

D 
D 

n 

D 
D 


164 
164 
164 
164 
164 
164 



BEGIN ERll»'*SErURlT''|ER?l*"Y F I LE )" J FR3 > ■"♦ 



"f GO ERR ENDI20511313 D 164 



BFr,lN fRU=''INvaLID">E:R2:«'' USeR)*"??! 20511335 H 16a 

fRRI rORGFTSPKFfOPTN);? 20511340 164 

ENn ELSF if OPTNa? THEN GO ERSYSI P i.lNE 2o511l90 20511363 D 164 

ELSE IF OPTwsi THEN BEGIN ERIIb^In USE )'♦ J ER2 1 »"* " ENO 20511364 H 164 

ELSr IF 0PTM»O THEN REGiN ERlt«''NoT ON "I ER2 1 ""O I SK ) * •• ENn»205ll365 D 164 

FRRORI 20511366 164 

STRFAMf A»«rCMMfO]],FR««rFRll»Bl«i(0PTN«sSPArE(l0)))J 20511370 H 164 

DSI.?5 LtT h SECURITY MAINT IGNORED f»t SlteFR;i 20511400 D 164 

3rSHaSl + iJ DSl«7 CHR)I« 2051140^ D 164 

SI BY DJZ - MSA CENTRAL (SUBMITTED BY S, KFLLfY - NaTaL UNIVERSITY) 99990000 164 

SJ DATE 05/12/76 99990100 n 164 

Jl THfS PATrH Makes ThF "security MaINT IGNORED" MESSAGE MORE 99990200 D 164 

$1 EXPLICIT BY ADDING ONE OF THE FOLLOWING REASONS TO THE MESSAGEI 99990300 164 

$1 1) SYSTEM FILF 99990400 D 164 

«l 2) SECURITY FILE 99990500 D 164 

SI 3) TNVALin USER 99990600 n 164 

t» 4) tN USr 99990700 D 164 

SI <5) NOT ON DISK 99990800 164 

SI AND f,) Same FILF. 99990900 D 164 



SfPATcH NUMBER 165 FOR TSSmCP CONTAINS 1 CARD, OOOOOOOO D 165 

AND (CMFID EOV "BADISK ") NEQ NOT 0) 28415250 D 165 

$1 BY DJZ - MSA CENTRAL (SUBMITTED BY S, KeLLfY - NaTaL UNIVERSITY) 99990000 D 165 

S« DATE 05/13/76 99990100 D 165 

$1 THtS PATCH WtLL PREVrNT "BADtSK^ FILES fROM BElNr, DUMPED TO A 99990200 D 165 

$1 LIBRARY TAPE, PREV|ouSlY» IF THESE FILES WERE RE-LOADED* THEY 99990300 D 165 

$1 WErE ALLOCATED AS NORMAL FILES* WITH A VERY SMALl. CHANCE OF 99990400 D 165 

SI BEING PLACED IN THE PROPER SPACF. FOR DUMPING PURPOSES ONLY. 99990500 D 165 

SI ALL "BAnrSK" FiLrS WtLL NOW RF TREATED AS RYrTEM FILES. 99990600 D 165 

St NOTE That SiTfS ShOUi.D not allow user FtLFS to Bf CREATED WITH 99990700 D 165 

St "BaOISk" <MFID>S, AS THESE A|.So WILL NOT BE DUMPfD, 99990800 D 165 



S#PATcH number 166 FOR TSSmCP ConTaINS 18 CARDS, 
% .rl3ll] FILE TO RF ADDED (NOT ON niSK) 

MusTADn « nAirmn** 

% CHECK IF FILE IS TO BE ADDED 

% 

IF AnnV THEN 
IF NOT MUSTADn THEN 
IF OU m 18 THEN* TAPE TO DISK 

IF DIRECT0RYSfARCH(-MFID,FID»5) NEO 0% ALREADY ON DISK 
THEN BEGIN 

LBMESS(aBS(MFID)»FID»-67»68»TiNUCIUiiSP0UTUnIT,LIBMSG)I 

IF dsed then ABoRTi 

GO NFXTT 



00000000 


D 


166 


28200061 


n 


166 


28208300 


D 


166 


28270806 


D 


166 


28270807 


D 


166 


28270808 


n 


166 


28270809 


D 


166 


28270810 


D 


166 


2827081? 


D 


166 


282^0814 


D 


166 


28270816 





166 


28270818 


D 


166 


28270820 


D 


166 


28270822 


D 


166 


28270826 


n 


166 



28270828 


n 


166 


26270830 


n 


166 


28281550 


D 


166 


41493085 


D 


166 


99990000 


n 


166 


999^0100 


D 


166 


99990200 


D 


166 


99990300 


D 


166 


99990400 


D 


166 


99990500 


D 


166 


99990600 





166 


99990700 


D 


166 


99999999 


n 


166 



FNn 

riSK BFfilN MfFATNF0 + Jl,ri3in»«1 ; MUSTAOni«l ENDl 
IF MUSTADD THfN T|»0 FLSFX ADD FILE NoT On DISK 
♦•ON DTSK***"* tf, % fte 

SI RY DJZ - MSA CENTRAL (SUBMITTED BY S, KfLLfY - NaTaL UNIVERSITY) 

S» DATE 05/13/76 

$t ThtS PATCH Wti,L PREVfNT ThE MCP FROM SCANNTNR DOWN A LIBRARY 

$1 DUMP TAPE TO FIND A FIlE WHEn THE FIlE BEInG aDDFD IS ALREADY 

$« ON DISK. A NFW MESSAnF IS aLsO INTRODUCED. THIS WILL BE SENT 

«• TO The Packet page and also to the spo if lirmsg is set. the 

$1 format of the new MESSAGE iSt 

SI ,<MFlD>/<riD> NOT COPIED (ON DISK). MT<UNIT> 



SfPATcH NUMBER 167 FOR TSSMCP CONTAINS 1 CARDI 00000000 D 167 

IF KTNn»7 AND F I BT 1 3 3 . r 28 » 1 0] # ABSf COBOL 1 THEN f,0 FIND ELSE 38272000 D 167 

SI DATE 6/23/76 99990000 D 167 

SI BY JTC - MSA CENTRAL 99990100 D 167 

*» 99990200 D 167 

SI THIS Patch fixes OTHf-RFlLFOPFNOlJT SO THAT r0R0L6n PRINTER 99990300 D 167 

SI BACK UP TaPfS Will have CORRfCTLY fORMaTTEO print 99990400 D 167 

SI FILE LABLES WRITTEN oN THEM. 99990500 167 

SJ**********#**********^*******#***#if*##**^,^***,„*i^*^#„,:4,##^^^^^^^^,„^^^^^^9999QgQQ Q jg^ 



SfPATCH NUMBER 168 FOR TSSMCP CONTAINS U CARdS: TAPE PARiTY OOOOOOOO D 168 

LABEL ERRORS. DlSKERR»DS»X.SW,LP»DK»DX»DXl»nC»OK»Lll 04125000 D 168 

SWITCH TYPf |» 0K,LP.0K.0K.nK»0K»0K.OK,0K.oKt 0412H000 D 168 

* 04129520 n 168 
% CHECK FOR A PARTIAL WORD BfNARY READ WITH NO PARItY ERRORS. 04129530 D 168 
« THIS IS ILLEGAL AND IS MARKED AS BEING A PARITY ErROR. 041295«0 D 168 

* 04129550 D 168 
IF (R,tl8ll2] AND P4462) « P0440 THEN % rIN READ-NO PAR 04129570 D 168 

IE R.ri5l3l # ((8-R,[22lin AND 7) THEN % PART WD XFER 04129580 D 168 

R.r28llJ l» M0D3I0SJ % MARK AS PaRITy ERROR IF MOD III 04129590 D 168 

SVOIDT 04167801 04167100 168 

IF U LFO 15 THFN t TAPE I/O 94129560 D 168 

$1 DATE 9/14/76 99990000 D 168 

$1 BY JTC - MSA CENTRAL 99990100 D 168 

*' „ - 99990200 n 168 

SI THIS Patch RfwRitfs thf code for haNdUing partial word transfer 99990300 d 168 

$1 ON BtNARv reads from TAPeI SiNCF this IS ILUFGAL for The B5700 99990400 D J68 

St SUCH I/O RESUi.TS ARE MARKED AS PARITY ErrorSI PRfViqUS Tq THIS PATCH 99990500 D 168 

SI SPACE REVERSE I/O S LOOKED LIKE PARTIAL WORD TRANSFERS AND THIS 99990600 D 168 

Si CADSfD ONLINf/MaiNT TAPf CONfIDFNCE ROUTINfS 1#2. AND 3 TO FAIL, 99990700 D 168 

Si notei Sites That rfad non-standaro tapes That wAve binary 99990800 168 

SI PARITY AND PARTtAI WoRD BLOCkS MAY WANT TO ELIMINATE ThIS PATCH 99990900 168 

SI SInCE it will cause RETRIES To BE DONE ON SUcH TaPES, 99991000 D 168 

$t*************rii*******i,*******ii,**tL^,*****ii**^it,it,^,m*i^i,it,4:ii,^0iti^^,ittiti^c* 99991100 D 168 



$#PATrH NUMrFR 169 FOR TSSMCP CONTAINS « CftRDS. D 169 

PPcPROrrSsisOjj! 

TF UnITN0>32 ThEm C ! DROWrUNTTNO-32] 1 T 3 I 5] I wO ELSEX 

IF Un1Tno*?3 Them READERA.CFMi-O El.SEX 

IF UNITN0«24 THEN RFAHERR 1 1 FF 1 1 «0; « 
*l RY nJZ • MSA cfNtRaL 
SI SOrTWARF FLASH ?0l 



20602855 


n 


169 


20606900 


D 


169 


20606910 


D 


169 


20606920 


n 


169 




n 


169 




n 


169 




n 


169 



SIPaTtH number 170 FOR TSSMCP CONTAINS 1 CARDS 

Begin if xlstso thew xi.STmrMrspACEfXLSTSzusO)! jsaotat^siioii 

$1 date 9/17/76 

$1 RY JtC " MSA CFNTRaI- 

Sl 

$J THtS patch PRfVfNTS rXTRA EXCEPTION LISTS fRQM BUILDING UP IN 

St CORE WHEN PROCESSING REMOVE OR COPY CARDS WITH MULTIPLE 

SI EXCEPTION LISTS, 99990500 D 170 

$1 *********************** **********************Jit****m*********** n 170 



SfPATcH NUMBER 172 FOR TSSMCP CONTAINS 9 CARDS. 00000000 D 172 



00000000 


D 


170 


2056700s 


D 


170 


99990000 


D 


170 


99990100 


n 


170 


99990200 


D 


170 


99990300 





170 


99990400 


D 


170 


99990500 


D 


170 



ADFCK •• 0| FTRSTORSEC ♦ 07108100 172 

07108999 D l7? 



$ 07109001 D 172 

REfilN LarfL TRYaGAIN; 20289030 D 172 

S 20289330 n 172 

Xl«6l MrBUF.n7]l80l 20269335 D l7? 

1991 GO To external; « 35 - SPECIAL INTERRUPT 46011500 172 

1301 GO Tn EXTERNAL; X 36 - DKA READ CHECK 46012000 D 172 

1311 GO To external; X 37 - DKB READ CHECK 46012500 172 

$1 BY DJZ • MSC DETROIT 99990000 D 172 

SI DATE 11/29/76 99990100 172 

St THIS PATCH ... 99990200 D 172 

St 1) REMOVES SOME RFDUMDANT CODE FROM PROCEDURE '♦c0M23''l 99990300 D 172 

St 2) REMOVES UNNECESSARY LAREL IN PROCEDURE "PR t NTTHECOVER"* 99990400 D 172 

St 35 PRfVENTS SYSTEM HANfi IN "nO UNTIL FALSf" LoOP WHFN OTSK 99990500 D 172 

St READ CHECK IS DETECTED^ ThIS WaS oRIfilwALLY INTRODUCED IN 99990600 D 1 7p 

$1 TEMPORARY PATCH #?0?» MARK XlV SYSTEM RELEaSE. 99990700 D 172 

%t ******************************************************************** **99999999 D 172 



SIPATCH NUMBER 173 FOR TSSMCp CONTAINS 2 CARDS. 00000000 D 173 

Xr5700 TS-MfP Mark XVI, 01172 05/11/77 OOOOlOOO n 173 

•'179" 00005040 D 173 



S« BY DJZ - MSC DFTPOIT 99990000 173 

SI DATE 05/11/77 . 99990100 173 

$1 THtS PATrH UPnATFS TuF MARK LfVfLS IN TmF SYMBOL FlUF, 99990200 n 173 



$#PATc:H NUMBER 201 FOR TSSMCP CONTAINS 005 CArDS 00000000 D 201 

IF Ua30 ThfN 04129100 201 

BFRIN MrPl53 + Cl»»!Rl 04129200 D 20l 

DCIOFINISHfP)! 041f9300 20l 

END? 04129400 D 20l 

IF (E»»(M[P153+C]l»R),[26l71)+(V|.T.r5f8]) NEQ THEN 04130000 D 201 

$1 THTS CHANGE TAUSFS TmF RESULT DESCRIPTOR OF FACH I/O TO RE 00000002 D 201 

tl STORED INTO Mr§l53+I/0 CHANNfL NUMBER3. 00000002 D 20l 

*' 00000002 n 20l 

««BY JCE 0000000? ?0l 

S'TR .».. 00000002 D 201 

SIDATf 3/6/73 00000002 D 201 

$t ****************** ***i^* *****************************<¥******** ******** n 201 



$#PATCH NUMBER 202 FOR TSSmCP,XV2 CONTAINS 25 CARDS D 202 

,MfMT0G m T0GLE.r43in##MEMT0GMASK ■P20# 00080500 D 202 

IF rMEMrWATTSTORn»0]3;rCE]"0 THEN 00093110 D 202 

IF NfiT MEMTOG Then SlEEP? rTOGLE].MEMTOGMASK)ELSE ELSE00093120 D 20? 

OEFIwE STnREDY(sT0REDYi.ST0REDY2)K IFC mEM[ STnREDYl , 1 1 1 CcF]*o THEN 00093400 D 202 

MFMT0Rt"ST0RF0Y2 fLSF 00093410 D 202 

MFMfSTORFnYlfOl.f l7il]laST0RFnY2!l'j 00093420 202 

STORFDYfO^'O)! 02396130 n 2O2 

STOREDYfO.t )l 02396500 D 202 

STORFOYrOf 0)1 02434490 202 

ST0RfDY(0»1)» 02434530 D 202 

BFGTN WaTTSTORF(0)I STOREDYf 0.0)1 09617000 D 202 

SToREDYf 0,1 )l 09624000 2O2 

WAlTSToRE(PlMlX)| SToRCnY(piMlX,o)l 18841400 D 202 

ST0RF0Y(PlMIXf 1)1 18843500 D 202 

WAITSI0RF(P1MIX)» STORFnY(PlMlX,0)| 18843800 D 202 

STORFnYfPlMTXiDl X PRPr MfMORy TO aLLOW "aRTN" TO bf BROUGhT tN 18845000 n 202 

WAlTSTOREfMiX)! STOREDYf M I X, 0) I 20119300 D ?02 

STOREDY(MlXt 1)1 20120300 D 202 

STOREDY(0*0)l 21032000 202 

STORFDY(O.l)) 21093000 D 202 

AftArNI WAtTSTORFrMfX)! STORfdYC My X,0 ) I 24309000 D 202 

ST0REDYfMTX«i)l 24313000 D 20? 

WaITSTorE(P1MIX)I ST0RE0Y(P1MIX»0)I 29544000 D 202 

STOREDY(PlMIX.t)j 29548000 D 202 

MrMT0GI»ll 44114100 D 202 

SlTHIS PATCH ALLOWS CELl, ZFRO TO BF MONITORED FOR INVALID WRITES 90000004 202 

SJfAFTER INITIALIZE). fN ORDER TO ENABLE THIS* A NrW TOGLE IS 90000005 D 202 

SI USfD » MEMTOG. RATHER THAN Mf03. [17113. TO INTERLOCK MEMORY 90000010 202 

Si BELOW THF FENCE, WITH THIS PATCH REFERfNCF TO StOREDY 90000015 D 202 



SIMUST be made AS^STOREnYrMlXiToG)!"* WhERF MjX iS THE MIX INDEX 

tlOF THE PROCESS AnO Tor, IS EITHER OR It 

S? 

SIRY flMS 

$ITR 1790 
StnATr 3/6/73 



900000?0 
9000002'S 
0000000? 
00000002 
0000000? 
00000002 



$tili*0i^:tf**^fil^t*****i¥*****,^*^i^i****ic*:^l^:^f******i^**t*************'¥********^ 



D 

D 
D 
D 

n 
n 
n 



202 
202 
202 
202 
202 
202 
202 



Si»PATrH NUMBER >03 FOR TSSMCP.XV? CONTAINS 29 CARDS 



D 203 



BOOLEAN OKSEGZERO 
IF 
S SET OMIT « 0KB 

$ POP OMIT 



WRiTFI 

tP(IODFSC.r3l53 

NOOFX 

• nUP) « PlTt 



OR PCXCH 



OK 
OK 

OK 
OK 
OK 

OK 
OK 
OK 

OK 

OK 

OK 

OK 

OK 

OK 

OK 

OK 

OK 

OK 

SIThIS CHAN 

SiTO HANG I 

tIABOUT To 

SI 

SIPY JCF 
tiTR 1766 
JIPATf 3/6/ 



segzer 
segzfr 

SEGZER 

sfgzfr 
segzfr 

sfszfr 

SFGZfR 

sfgzfr 

SEGZER 

segzer 
sfgzfr 
segzfr 

SEGZER 

segzer 

SEGZER 
SEGZFR 

SFGZFR 
SEGZFR 
GE IS 

N A "D 
BE UniE 



73 



) » P6) AND 
NOT I0DFSC.t24ll] AND 
f f (PfMriODESC.tCFlliDUP) EOV 0> 
f(P(XCH) EOV 32)sN0T 0)) AND 

NOT OkSEGZEROWRITE THEN 

bybycsegment zero overwrit 
owritei»true» 

OWRlTEi*FALSEI 

OWRlTEi^TRUEl 

OWRITEi-FALSEI 

owritei»true; 

0WR1TEi*FaLSEI 
OWRITFI'TRUFI 

owriteiwfalsfi 
owritei«true» 

0WR1TEi«FALSEI 

0WRITEi»TRUF1 

OWRlTEl*FALSE» 

OWRITElisTRUEJ 

OWRITEl=FALSE> 

OWRlTEi«TRUEl 

OWRlTEt«FALSE» 

OwRlTFt«TRUF? 

OWRlTE.t«FALSEl 

PROViDfD for debugging PURPOSES 

UNTIL FALSE" LOOP WHENEVER DlS 

XPECTEOLY OVERWRITTEN. 



'Not 0) OR 



E»''»23)> 



*4t4i*i|i4i4,i»)|t]ti4i4i*i|(iK4>*itci((**i|i*>|ii|i4ii|<i|t4,4i4ci|: 



00422100 
04004110 
04004119 
04004120 
04004121 
04004130 
04004140 
04004150 
04004155 
04064160 
04004170 
05665399 
05665401 

06059659 
06059661 
09645999 

09656001 

09682609 
09682611 

40249400 
40262100 
42600919 
42600921 
42713949 
42713951 
42730999 
42731001 

44411399 

44411401 

MCP 44419421 

IS 44419423 
44419425 
00000002 
00000002 
00000002 
00000002 



ANn CAUSES THE 
K SEGMENT ZERO 



D 
D 
D 
D 
D 

n 




D 
D 
D 

D 
D 
D 

D 

D 

n 

D 
D 
D 
D 
D 

D 

n 



D 
D 

D 



D 

D 



f> 

n 



203 
203 
203 
203 
203 
203 
203 

203 
203 
?03 
203 
203 
203 
203 
203 
203 

203 
203 
203 
203 
203 
203 
203 
203 
203 
203 
203 
203 

203 
203 

203 
203 
203 
203 
203 
203 
203 



SfPATrH NUMBER 301 FOR TSSMCP,XV2 CONTAINS 3 CARDS 

ir Monr i» (MOnE«0) aNd blfn b 20 thfN 



D 301 
38107610 n 301 



SAVrWOPD In SAVFWORD OR TwOrU); 36lS76?0 D 3O1 

CmTCTl t» DIrEC Ik 0; 18107700 D 30i 

$1 THIS Patch allows tht reading or pure binarY card input» 90000015 n 301 

SI IF THE FILE IS OFCLARFn AS ALPHA WITH A BUFFfR LpNGTH 90000020 H 301 

$1 OF 20 WORnS. ALSO THr CARD RfADFR WILL RF MARKfD SAVED 90000025 D 301 

Si WHpN Thf PROGRAM CLOSES ThF FILE. CARE SHOULn BE TaKEN D 30l 

SI WHFN USING THIS FEATURE SINCF A "QEND" CARD WILL NOT 30l 

SI BE SEEN BY THE SYSTEM. IT IS THE PROGRAMS rESPONC I BI L I TY D 30l 

SI TO DETECT WHfn THE EnD oE THF FILE HAS oCCURREDt n 301 

SI n 301 

SIBY JCF D 301 

SIDATf 3/6/73 0000000? D 3O1 



S#PATrH NUHRfR 30? FOR TSSMCP CONTAINS 049 CARDS OOOOOOOO n 302 

Rfal Result u -4j 03292300 d 302 

BOOLEAN ZEROTlMEOUTji 03296250 30? 

ZFR0TlME0UTlBN,r3?llll 03296300 D 30? 

N.[32Mll«OI 03296350 D 302 

IF ZfROTIMEOUT then 03297410 D 302 

BEGIN 03297415 D 30? 

RFSULTl«2> 03297420 302 

STRFAMfnisA.rCFl); 03297425 D 30? 

DSi«8 LIT "TIMES " > 03297430 302 

GO TO RrTURNl 03297435 D 302 

ENDI 03297440 D 30? 

STREAMfTH»(f'»END")tf l?)r?4i42»6])lA2); 03307100 D 302 

BFGIN STi!»A?l 0II«L0C Tl DH=0l+4j 03307110 D 30? 

IF 4 SC NEC Dr THEN TalLY|w1> 03307120 D 30? 

TibTaLLY) 03307130 D 302 

ENDi 03307140 D 302 

RrSuLTiaPOLTSHi 03307150 n 302 

GO TO RrTURN; 03317500 302 

IF PAPfRTAPE TmEN 03624400 D 30? 

BEGIN STREAMCTisfEND"). SOURCE)! 03624401 D 30? 

BEGIN Sli»L0C T> DI««SOURCEl 03624402 D 302 

SIi«ST+5l DIl-DI+ll 03624403 D 30? 

IF 3 5C«DC THEN 036?4404 D 302 

BEGIN 0ll»DI-3> DSl«3 LIT •♦ "I END* 036?4405 D 30? 

ENDJ 03624406 D 30? 

FLAGSl»4i 03624407 D 302 

ENn ELSE 0362440S D 302 

RFGTN 5TRFAM(Tl»f'*END")lS0URCE)l 03684410 D 302 

BEGIN SIIpSOURCCI DTIsLOC Tl 03624420 D 30? 

sh»sSt*ii Dn»DU5i 03624430 d 30? 

IE 3 SC NEo DC THEN TaLLYI»1I 03624440 D 302 

TI«TaLLY| 03624450 D 302 

fNDI 03684460 302 

TF POLiSg Then go to ce» 03624470 n 3O2 

ENOI 036244B0 D 30? 

BEGIN STREAM(SnURCEtKfTt«PAPERTAPF)l 03624600 D 302 

IF Sr«MARK THEN 03625300 302 

RFGIN nTI»LOr K> nSl'S LTT "fNO**! 03625310 D 302 



ST««Sl4-n DII*DI-3J 03625320 D 30? 

IF 3 ScsDC THEN 03625330 D 302 

RFRIN TALLY««2I Kl«Stl DH.KI 03625331 H 302 

T(DTI»0I-3I 0362533? D 302 

DSI"3 LIT •♦ ")! 03625333 D 302 

FND FLSF TALLYlPl; 036^5334 D 302 

ENDI 03625340 D 30? 

RI«P0LISH> 03625600 D 30? 

FlAGS|»IF R then « ELSE 03625610 D 302 

IF ((R*2) AND PAPERTapEJ ThEN & ELSE 03625620 D 302 

IF {(R*2) AND FLAGS) THEN H EL^F FLAGS* 03625630 D 302 

Si thts Patth implfMfnt!^ tmf fOf bRaNch if "OrNn** u typed 00000002 n 302 

SI to a Remote job as tnput. 00000002 n 302 

SI ALSO thf parity labei, wtll be Taken if data is noT present and a zeroooooooo? d 30? 

$1 time out was SPECIFIfD, 00000002 n 302 

SI 00000002 D 302 

SIRY JCF 00000002 D 302 

SITR I,,, 0000000? D 302 

SIDATf 3/6/73 0000000? D 30? 



*# PatTm NiiMrfR 401 FOR TSSMrP. XV T ! 00 cONtaiNr ol CARnS.FlVr MtNuTF SLffP LtMtt! n 401 

TImElIMITmAX ♦ 3600 x S + 18000 I S»0» J;401-GRK 22013130 D 401 

SI . „ ^ n 401 

SI This PftTrH tncRfasfr tmf maximum slfeP time abOvf the ffNcf from n 40i 

SI 15 seconds to FtVE MTNUTeS plus one MiNUTf for fACH ACTtVE JOB, D 40i 

SI Ear Too MANY JOBS 6fT kIlL^D at 15 SECS THAw IS REASONABLE. D 40l 

S« D 401 

SI G.R.KfNNFDY 25FFR76. RROcK U, PATCh 40i D 401 



S# PATCH NUMBER 403 FOR TSSMCP. XVl . 00 CONTAINS Ol CaRDS. PREVENT FLAG BITS ON CM, D 403 

STRFAMfBASE)! BEGIN 3f DS*L T T^O"! DI*DI+7)l ENDJ X403-GRK 09680450 D 403 

*» D 403 

SI This patch prevents system hangs caused by garbage in Segment zero d 403 

SI In PROCEDURE CHANGE^iCP. D 403 

St The current MCP NaMfCS^ and rase disk address MaY HAVf THF FLAG BIT D 403 

SI ON fTT haPPfNED AT I FASF ONfE)'. D 403 

** D 403 

SI gIR. KENNEDY 17FEB76, BROCK U, PATCH 40^ D 403 

Sli|iitt*itt*4i***4>****4t*4i4'*4'#******i|t*i|c4<«4<)l<«***4<*itt*i|i****i|i**««****it<**)k****«4i**4[* D 403 



S# PATCH number 4O7 FOR TSSMCP, XV 1 . 00 CONTAINS 01 C aRDS .CONTROLC ARD SCREWUP, GRK D 4O7 

P(OlRECTORYSEARCH(NABS(CMMtO])»IF CMMtOlcO ThEN "DISK " ELSE 20606865 D 407 

SI D 407 

SI This patch fixes a problem in CONTROLCaRD which caused the MCP SAVE 407 



S» CORF TO GRAnUALLY I^!CRFAS^. ThF PROBLfM WAS WITH CONTROL CARD D 407 

Si FRRORS on COMPfLF C«RDS. AT •'TNCSC ThFRF WAS fl CALL ON H 407 

SI DtRFCTORYSfaRCH WiTw -CMMrOl SO AS TO NOT RfTURn THE FILE HFADER. D 407 

$1 BUT - COMPILERS HAVf CMMfOJ NEGATIVE* SO I.. 407 

SI RFCElVEn FROM DREXEl, UNIVERSITY BY PHONE oN 16JUL75. D 407 

S« D 407 

SI G;r, KENNEDY IOOCT75. BROCK U, PATCH 407 D 407 

$l***ilt'¥****it:* ********** l^ilt ************ ********************^i*^,*^citi* n 407 



$# PATCH NUMBER 410 EoR TSSMCP 1 XV I , 00 CONTAINS 0? CaRDS.LET •♦SD" OR •'CL'* WORK, 4l0 



JARrMtX.6];r.t »l]«-f CTYPf«9) or CTYPE*!?))) XDS;8,SD«9,rL«!l9 X410 
JARrMTX,6K[l MUrf TYPE«9) OR eTYPEBi9))) XDS,8 , S0»9 » CL»1 9 X410 



1621?100 n 410 

%**% JARrMTX,6K[l MUrf TYPE«9) OR eTYPEBi9))) XDS;8 , S0»9 » CL»1 9 X410 16216000 D 410 

St D 410 

$1 THIS PATCH TO KEYiNn SHOULD ALLOW "SO" OR "cL" TO SAVE PSEUDO-DECKS , D 410 

SI Wf will SETUP THE "RAVfTHE-DECK" BIT BEFoRF CAiLING TERMINATE* AS D 410 

SI In THE DCMCP. D 410 

SI , D 410 

St G.R. KENNEDY 13JUL76, BROCK U, PATCH 41o D 410 

ti ***tf*****************i^i*******if**}tc*******^t********nt******************** [) 410 



S# PATCH NUMBER SOa EOR TSSmCP , XV 1 . 00 CoNTaINS 9? CaRDS,E0J JOB STaT I ST ICS ,GRK , D 504 

REAL CPUl0««+14j X504-GRK 14351306 D 504 

PfO)I «ZFRO OUT CPutO J;504-6RK 143S5060 D 504 

CPUlO-GETSPACEf 10,0,1 )♦?> K504-6RK 144l30?0 D 504 

Mrcpuio+2i*VFCToRro]i «JoB Prefix X504"Grk 14413030 d 504 

MfrPUIO+33*VFCTORtl3t XJOB SuFFiX X504-GRK 14413040 D 504 

MCrPUTO*43*'ji «J0R MtX INdfX X504-GRK 14413050 D 504 

MrrPUT0+5itaSril*NEXTM0M)+30)DfV 601 XCPU TtMf X504-6RK 14413060 D 504 

MfCPUl0<'6l*(fSr2l*VECT0R[4] + T0TtMF[n) + 30)DlV 60lX504"GRK 14413070 D 504 

MrcPUI0-t'7]*5r3]*CLCCl]"SCrn5xCHUNKZlZE*CHUNKZIZFI X504 14413080 504 

STREAM(I»rPUTO)| X504-6RK 14430031 D 504 

BEGIN 0S*5LtT'' for " t SI«.CPUI0> Sl*SUl7> X504-GRK 14430032 D 504 

D5*7ChRI DS^LlT"/"! Sl»SI+ll DS*7ChRI X504-6RK 14430033 D 504 

DS*i IT"***; DS»?DEC| I*D!I DI^DI-2J X504-GRK 14430034 D 504 

DS*F1LLI Dl*Ii DS«'5LlT''iPST»''j DS»5DEC| X504"GRK 14430035 D 504 

I*DTI DI*-DT-5j DS«'4FlLLi DI*TI X504-GRK 14430036 D 504 

DS-'SLlT^flOTs"; DS*5DFC; I*OIi DI*DI-5| J;504-GRK 14430037 D 504 

OS*aFlLLl ni*n 0S*6LlT''»c0REi''l X504"GRK 14430038 504 

DS»5DFri I*DII DI*DI»5l nS*4FlLLI J5504-GRK 14430039 504 

Dt*Tl DS-'LtT'**''! I504-6RK 14430040 D 504 

END STREAmI X504-GRK 14430041 D 504 

SP0UTeR(CpU!0»UNITN0.64)I J;504-6RK 14430042 D 504 

IF UNITNO^O THEN «504-GRK 14430043 D 504 

Si D 504 

$1 THIS PATCH PROVIDES THE EoJ JOB STATISTICS mESSaGE SIMILAR TO D 504 

$1 The DCMcP MfSSaGE, in AODITTIONi maximum core usage IS PROVIDED. D 504 

SI D 504 

SI SPOlJTFRnOrUMFNTATlON SPOUTfRCMfSSaGF ,UN ITNo»TYPE ) D 504 

SI SBBsexsssBaiBcsssKsssa «eBrssBss8tBsss«sSBSs«Ba:>s*Ba D 50^ 



Si 

SI 

SI 

SI 

SI 

$1 

St 
SI 
SI 
SI 
SI 
Si 
SI 
Si 



DfFTNES I 



NOTES t 



SPOUT(MERSflfiE) * SPOUTERC MESSAfiE» 0» 1 > 
SPOUTIT(MESSAGF»TYPr) " SPOuTERC MESSaGF* 0» TYPE ) 



--CONDITtON-- 

unItno type 



N/A 
N/A 
N/A 
N/A 




64 

nfr. 

TRUE 



MESSAGE DISPATCHED 

SPO PACKET LoG 

N Y Y 

N Y N 

N Y N 
Y Y Y 



COMMENTS 



FOR Packet page only 



G.R.KENNEDY 10JUN76, BRoCK U, PATCH 50ft 
THIS PATCH IS NEEDED BY PATCH 509 
***^i*t************************i>^* ************************************** 
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504 





504 
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504 
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504 





504 


n 


504 



S# Patch 508 for TSSMrP^XV.a contains 4 cards, prevent ElLrHOUO FOR "rHANGF" 

SI THtS REMOVES A POTENTIAL INVALID LINK PR0B|.EM IN PROCEDURE LIBCC WHICH 

SI WOULD OCCUR IF A FILF WERE REMOVED WHILE IN THE PROCESS oF BEING 

$1 A) REMOVED OR B) CHANGED. 

Si THTS also PRfVENTS a file hold situation from OCrURRING WHEN A CHANGE 

SI COMMAND tS entered FROM A REMOTf TERMINAL, 

Si NATAl, U. PATCH 508 

IF T GEO 64 THEN 20574917 

T*DlRErT0PYSEARCH(CMMC03»CMMrlU(PfUNlTN0»DUP)«25 OR 20577826 

P(XCM)«30)[l|47il].4)j rNDt 20577627 

TF T GEO 64 THFN 20577828 

$^***il,*****************^*******•^^**0*******^t**^t*tll***^)l*******^t,*********,^0* 
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S# PATCH NUMBER 509 FOR TSSMCP. XV I , 00 CONTAINS 17 CaRDS»PRNPBT/LOCNTRL BOJ/EOJ 



D 509 



SI 
Si 
SI 



TF P ThfN MAKFLOGfMFSSAGE.ABSCTYPF))! 

ENDI tF type I SS THEN TYPEI»64> 

SPoUTlTfLOGlNFn* 
64^1 

SPOUTITCVeCTOR iNx 0» 

TF NOT f fMrrPUlO+31 fQv "D 
( CMtCPUlO+9] fOV 
(MtCPUlO-l-2] FOV 
THFN (CLINK OR CANDYMFSS 
ANo fNOT JAR9);r?t 
ELSE -FOJK)l 

spouterct.unitno. 

IF NOT ( (JARtMlX»n EQV "0 
( (JaRCMIX,03 EQV 

rJARrMix,0] EQV 
Then rrrNOT SrO]).r?ti] 
And bojmess and i or bojk) e 

This Patch suppressfs all "roj" and "e 

«pRNPBT/niSK«« and "iDCNTRL/nl SK", THI 



ISk ♦♦)»N0T 
••PrNPBT •♦)sNOT 
"LnCNTRL^'j-NOT 
) fiND EOJMfSS 
1] OR EOJK) 



)"M0T AND 
"i-NOT OR 



ISK ♦• 
•PRNPrT 

"LDrNTRL^'j-NOT 0) ) 
OR cANDYMpSS) 
I.SE -BOJKll 



OJ** SPO 
S ShOuL 



MrSSAGES FOR 
D wELP ELIMINA 



1509- 

!K509- 
X509- 
X509- 
X509- 
ANDX 
OR 

onx 

X509- 
«509- 
X509- 
X509- 
X509* 
X509" 
X509" 
«509" 
1509" 



TE 



GRK 

GRK 

GRK 

GRK 

GRK 

509 

X50914 

509 14 

GRK 



02 
0? 
12 
12 
14 
14 



GRK 
GRK 
GRK 
GRK 
GRK 
GRK 
GRK 
GRK 



14 
14 
14 
20 
20 
20 
20 
20 
20 



134000 
134005 
704000 
704100 
430000 
43000? 

430004 
430006 
430008 
43OOIO 
43OO1? 

104200 
104300 
104310 
104320 
104330 
104340 



D 
D 
D 
D 
D 
D 

D 
D 
D 
D 
D 
D 
D 


n 


D 
D 
D 

D 



509 
509 
509 
509 
509 
509 

509 
509 
509 
509 
509 
509 
509 
509 
509 
509 
509 
509 
509 
509 
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509 


n 


509 


n 


509 


n 


509 


n 


509 


n 


509 


D 


509 


D 


509 


n 


509 



$J SPO •♦CLUTTER", 

SI NoTE THflT SpnUTER HaS BEEN MODIFIED To LOG NEGATIVE MESSAGE TYPES 

$t RUT NOT SPOUT THEM fSIMILAR TO TYPE 64 - rUt TYpE IS RETAINED). 

St 

SI GlR.KrNNFOY 31MaY76; RROcK ui PaTCH 5o9 

$J ThtS PaTch USfS VARIABLE CPUtO WHICH IS DEFINED tN PaTch 501 

SI CORRECTED To INCl.UDE BOJMESS BY DR, UCSc 

SI SEE ALSO DREXEL U, PaTCH 716 

$t *)tt*ii^*Jt:***^iti*if^t*****t ************************* t^:*^********m******* 



S# patch 510 FOR TSSMCpIXV.3 COnTAInS 2 CARDS. INITIALIZE TYPED PROCEDURES D 510 

SI THtS Patch CORRFCTS aN fRROR INTROoUrED by PaTCH number 24 TO MCP.XV n 510 

Si WHfRf THF variable PROcVAL was not INITtALt^FD in the PROCEDURES n 510 

SI "ACESBlT" AND "CCCOMPILF'*, WHEN ReTURNtNG FROM THE PROCEDURES THE D 510 

SI VAi.Ue of THE TYPED PROCEDURES WaS TAkEN FRoM THE LAST VALUE OF D 510 

SI PROCVAL. THIS CAUSFO ODD ERRORS. E.G. THF CARDst D 510 

SI Q LOAD FROM XYTaPF ANY/NaME D 510 

St Q cOMPtLf PROr/NaMf FORTRAN 510 

St WOULD RESULT tN "CONTROL CARD ERROR AT FORTRAN". THE TYPED D 510 

$1 PROCEDURES ARE NO^ INITIALIZED, NOTEf ACFSBIT NOW CCSeT D 510 

St NATAL U, PATCH 510 D 510 

CCrOMPlLE*0; 20584340 D 5l0 

rCSET*Oj 20711100 n 510 

$t*************************************************ni******************** n 510 



$# PATCH S11 For TSSmCp'XV.S CONTAINS 4 cards; "PCh WITH 6«; JOBS ON DISK 511 

SI THtS is to fix THF CaSE WHERF THFRE ARE 65 JOBS oN DISK AND A "PC'' TS D 511 

Si DOneI PRtOR to this ThF message WOULD COMf OUT aSI- 65 JOB# #NNNN D 511 

SI WHERE "NNNN" WAS THE NUMBER OF THE LAST DECK ON DISK. D 511 

SI nATAl U. patch 511 D 511 

SI*L0C Tl» 07295100 D 511 

IF SC'"*0*' THfN go to AQ 07295102 D 511 

rLSF St*SI+1| 07295104 D 511 

AQ« BEGIN DS*3 IfT "St "i 07295160 D 511 

$ I ********************* ti,******************t**^*'ti***0******************** n 5}i 



t* PATCH 51? FOR TSSMCp!XV,3 CONTAINS 7 CARDSI ERRoR PROGRAM PARAM CARDS D 51? 

St THIS PATCH REARRANGES SOME CoDInG IN PROCEDURE PpC FOR CLARITY AND D 512 

St GENERATES A CONTROL rARD ERROR FOR IDENTIFTFRS On PROGRAM PARAMETER D 512 

$1 CARDS WHICH ARE UNDEFINED, D 512 

SI NATAL U; PATCH 512 D 512 

ELSF IF TYPEeCoRFV THEN 20504500 D 512 

BF6IN Xt20l * TPNO DiV 641 20505000 D 51? 

DO UNTIL rlOD ♦ SCAN)«MAXV OR IODbPERtOI 20507000 D 512 

IF IOD««MAXV THEN P ( [ X [201 J t lOR ) FLSE r,0 TO DOWNI 20507100 D 51? 



End 20507200 n 512 

ELSE IF TYpF>pRlOR AND TYpE<SAVEV THfN 20507300 D 512 

Xtl8*TYPE-PRlOR]*TPNO ELSE 60 TO FRROr; 20507400 D 512 

$i*****!ti*^i*i,**^i*iii*itt****it,**jti*t***t>^********************* ********** n 512 



S# PATCH 517 FOR TSSMCP CONTAINS 3 CARDS. oWfRLAy DISK SPACE USED UP D 517 

$1 WHFN a PROGRAM HAS EXCFFDED TTS OVERLAY DISK SPArE» THIS PATCH WILL D 517 

St CAUSE The mCp To issue the message "array olay Space used up" when d 517 

St ds-ing The program* instead of "Invalid array size idn". the latter d 517 

St message is misleading. D 517 

St BY STEVE KELLEY. REQUESTED RY NaTAL U, MaY, 1974 D 517 

St NATAL U. PATCH 517 D 517 

St MOnlFIED FOR TSSMCP pY dR» UcSC JAN. 17» 1977 517 

TfRMINATE (MtXR 99[CTF3)I 06411010 D 517 

"BaRRAY "» "80LAY %» , % 99 41445700 517 

"BPACF U". "eSFD UP*** % 4l445fi00 D 517 

$t***,t,*********i^*******i^i**^ti/ti***********************:t,******************** 517 



S# PATCH NUMBER «il9 FOR TSSMCP . XV I , 00 CONTAINS 01 CaRDS, ENABLE "FILE IN USE" OK. D 519 

BEGIN T*VWY|lV0Kr36t42l6]&CVIFxA.t3tl])r30lA2t63; X519-GRK 18025000 D 519 

$1 n 519 

St This Patch fNarlfs ••#ftL iN usr" situations to re "Ok-eo". n 519 

SI PREVIOUSLY rFXCEPT pOR LTBMAIN) THE ONLY ALTERNATIVE WAS "DS", D 519 

S« D 519 

SI G.R, KENNEDY 30JAN76, RROCK U, PATCH 519 519 

SI SFF ALSO ucsr Patch 815 519 

tt*************************************************^,******************** n 519 



S# PATCH 5?1 FOR TSSMCP. XV. 3 CONTAINS l7 CaRDSi FIX PROCEDURE "CCSET" D 521 

SI thtS paTth fixes The mfss that procedure ctSfT is in, 

$1 THE problems fixed APEI 

$1 A) FILE HFADfRS OF AlL FILES REFERENCED BY ThIS PROCEDURE ARE LEFT 

tl IN CORE. 

St B) DIRECTORY WAS BEING UNLOCKED IN MANY CAsES WHEN IT WAS NOT LOCKED 

SI BY THIS procedure! 

SI C) DISK HEADER WAS BEING WRITTEN BACK UNALTERED aT LINE 20739000 

SI INSTEAD OF A FORGfTSPACE ON THE HEADER. 

St NATAL U, PATCH 521 

BEGIN T*?J GO To LU END? 20730000 D 521 

BEGIN FORGfTSPACECT)! T*1I GO SKlP» ENnt 20739000 D 521 

S VOinT 20^39100 D 521 

S VOinT 20739200 n 521 

FUSE BEGIN 20769000 D 52l 

* SET OMiT m ShAREOISk 20769l00 D 521 

UnLOCKDIRECToRYI 20769200 D 521 
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521 


D 


521 


D 


521 


D 


521 


D 


521 


D 


521 


D 


521 


D 


521 


D 


521 



S POP OMIT ?0769300 D 521 

LeMFSSrCM^'[2]»rMM^3l»-(lUT0^,)t41.o.SP0UTUNIT»n> 20^69400 n 521 

END> 20769500 D 521 

FORGFTSPACEfT)! 20769600 D 521 

FLSf BEGIN 20771000 521 

$ SET OMIT « SHARrnlSK 20771010 n 52l 

UNLOcKhtRfCTORyJ 20771020 n 521 

S POP OMiT 20771030 521 

PnD> 20772050 D 5?1 

S VoInT 20772301 20772100 521 



S# PATCH 523 FOR TSSMCP.XV.3 CONTAINS 1 CARD, "RESFRVE DISK REMOVED" SPO ONLY D 523 

ii THtS PATCH MAKES THF ••** RFSfRVF DiSK RfMOvEO" MfSSAGE GO TO THE SPO D 523 

$1 ONi.Y. prEVIoUSi.Y it AlSo WEmT To THE MESSAGE PArE FOR THE JOB, D •i?'^ 

%i NATAl, U. PATCH 523 D 523 

SP0uTrRfZ»25,(N0T LtRMSG) ANn 1)) 06353660 n 523 



$f PATCH 527 FOR TSSMcP CONTAINS 3 CARDS, FIXES TO "SET" ANH "RESET" n 527 

SJ THtS WILL ALLOW ONr tO fNTfR A "SET" OR "RrSrT" rONTROL CARp FROM n 527 

it THF SPO AFTER A CONTROL CARD ERROR ON ThF LAST INFORMATION ENTERED D 527 

*> FROM The Spo* PRIOR To ThiS, EVEN ThOUgH THE CORRECT INFORMATION WAS D 527 

St Entered for a set or reset control card, the firrt word would not be d 527 

St RFrOfiNlZrOf RFSULTlNr, IN A FURTHER CONTROL CaRD rRROR, 527 

SI ThtS WILL ALSO FIX TpF CASF WHERF A SET OR RfSfT CONTROL CARD 527 

S« FOLLOWED AN EXECUTE CARD. ThE SET OR RESET WAS RElNG TAKEN AS A D 5?7 

SI PRoGrAM PARAMETER CApD, D 527 

St NATAL U. PATCH 527 527 

St MOnlrlFO FOR TSSMcP pY nR» UrSC JAN. 17» 1977 p 527 

CONTROLAI TF fT < FTLEV or T > COBOL) AND ACCUMfO] ^ CMPLR THEN 20604300 D 527 

IF T GEQ UNLOCKV AND T LEQ RESETV ThEn GO TO FINIS 20604350 D 527 

IF (T>pACKET) and (T<RESETV) And (T^RUNV) then 2O6O8O78 P 527 

$t*ii*********t¥* ********************************************** *********** n 527 



S# PATCH 52r For TSSMCP CONTAINS 1 CARD. TrY DISk SPACE AFTER RESERVES REMOVE D 52r 

$1 ThtS CAUSfS aNOThfR aTTfMPT TO rfT niSK SPaCf AFTFR ReSfRVF DISK IS 
St REMOVED tNSTEAO OF SpOUTlNG NO USER DISk AnD FORCING ThE OPERATOR TO 
St DO Am "OK" For the JnB, 

St NATAL U, PATCH 528 

S| MOmfIFD FOR TSSMcP pY oR. UcSC JAN^ I7, 1977 

FORftFTSPACErBUFF)! P(XiT)j 

$t********* ************,!,*********** *******,lf**^t* ************************* 
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D 


528 



$# Patch 534 for tssmcp contains 3 cards, fix "xt" x •♦ct" for ♦.n s '•♦<empty> n 534 

$« THtS PATCH CORRfcTS pROCFDURf "T TMeReLAXfR** SO TuAT Thf INPUT D 534 

$1 COMMANDS "XT»» And ♦•ct'* Work correctly, prfViousiy if the changes to d 534 

SI THF TIME ESTIMATES WfRF OF THE FORM *»N THFN AN INV KBO RESUUTEO, D 534 

$1 THIS Was because AFTfR finding the * » SI WAS NOT INCREMENTED TO SKIP D 534 

41 OVfR IT. D 534 

SI THtS also fixes the case where the IOT is oF the form ♦♦»<EMPTY>'', D 534 

SI PREVIOUSLY* THIS WoU| D ALSo HAVF GIVEN AN '♦InV KrD". 534 

SI NATAL U. PATCH 534 D 534 

IF Sr*" " THfN rO Lli ENni 08/39000 D 534 

TF Sr*"*** ThfN RFGIN Sl«.SUlj GO L5l ENOJ 08739500 n 534 

IF S^.H*" THEN BEGIN TAllY*! I GO EXiTi EnOI 08749500 D 534 

$t0#iit*#****it**************ii**** ***************!************* ********** D 534 



t* PATCH 53S For TSSmCp;XV.3 COnTAInS 23 CARDS. FIX PROCEDURE CHANGEOpTIoN D 535 

SI THfS PaTpH FTXFS SOMr RAD COniNr, IN PROrFDURr CHiNfiFOPT f ON WHERE THF 535 

$1 SCAN MAY 60 PAST THE END OF THE INPUT BUFFfR! IT TS A Rf-WRiTE OF D 535 

SI THE SCAN PORTION. IT Al.So MAKES ThE USE OF THE WORD "USE" OR "U" D 535 

St OPTIONAL IN THE SO Op RO WITH THE OPt'ON MnEMONIc (AS WItH THE OPTION D 535 

$1 NuMRfR)! n 535 

St NATAi, U. PATCH 535 D 535 

LOl Sl*BUFF» 08634000 D 535 

Lli IF SC" " THEN BEGIN SI«-SI + 1| Go TO Lil END) 08635000 535 

IF SC<*0" THEN 08636000 535 

IF Sc^"*" ThfN 08637000 D 535 

BEGIN tally*oi Totally; duloc ti 08638000 535 

eflF SC«" " THEN JUMP out ELSE 08639000 D 535 

IF SC*"*" THEN JUMP OUT fLSE 08640000 D 535 

IF Sr>'*0'' THFN JUMP 0|)T rLSF Dih^CHR)! 08641000 n 535 

rUff*StI S|*OPTfRI 0864?000 n 535 

63fDi*L0C TI 0B643000 D 535 

If 8 sc«Dc Then jump out to l? else O8644000 d 535 

If SC»"«-" THFN jump OUT TO LO ELSE TALLY«-TALLY + 1 ) 1 08645000 D 535 

GO To L3I 08646000 D 535 

L?l IF Sf!-"*." THEN GO TO LOl 08647000 D 535 

END ELSE 08648000 D 535 

L3I TALLY*.48 ElSE 08649000 D 535 

BEGIN DI*L0C T| SI*SI*1| 08650000 535 

IF Sr<''0'' THEN RE6IN SI*SI-1» DS*1 OCTj fNd 08651000 D 535 

ELSE RFGIN Sl«.Sl-l| DS»2 OCTi fND» 08652000 n 535 

TALLy*47I T(TALLY*TALLY+63W 08653000 D 535 

ENOI 08654000 D 535 

T*TALLYl SI*L0C T| 0I*RI DS*WDS| 08655000 D 535 

S VOinT 08656000 D 535 

$t***,ii*ni***m*********************************** ************ ************* n 535 



Sf PATCH 538 FOR TSSMCP^XV.S CONTAINS 2 CARDS, FIX TIMING PROBLEM WITH PURGE D 538 

ti THTS Patch rORRrcTS I ttMtNg prorLfM with a pROgrammattc PuRgf of a n 538 



$: TAPE FILE. THE pURGF IS HANDLED BY AN INDFPENDEmT RUnnER WHICH HAS 

SI TO Wait until the tape has rewound, if a program closes file "a/b'* 

$J with PURfir AND THFN tRIFS TO OPfN FILE "A/r"^ IF THE PURGF HAS NOT 
SI OcrURRFD, TT MAY TRY TO fiRAB THAT UNiT fSFF FINDOUTPUT P 370?7000). 
$1 Thf PRNTABLE STtlL CONTAINS THE POINTER TO ThE ToP I/O DfScRIPTOR* 

SI THF SPACE For which has Already been Forgotten* so that it may pick 
Si up Garbage, this is fixed by setting the mix inhex of the program 
$1 assigned to the unit to zero in the rdctable before starting the 

Si INnEPENDFNT RUNNER TO PURGE THE TAPE. 
$1 NATAL U, PATCH 538 

BEGIN RDCTA8LFrU].re»6]*0l 
F0RKfP(,PURftEIT)fUf-?»128,l) END FLSE SfTNOT iNUSEt U. 0) ; 



S# PATCH 559 FOR TSSmCp!XV;3 CONTAINS 7 CArDS^ PURgE OF TAPE AFTER CLLP* 539 

SI THIS PATCH CORRECTS THF CLLP* WHEN PRINTING FROM A BACKUP TAPE WITH A 
Si W/RING, THF TAPf fS NOW RfWOUNd AND PURGFD cORRfCTLY, PRFVlOUSLVt 
SI Thf PURgF DTD NOT TAKE PLACE*, PRIOR TO THtS PATrH* PRNPBT/DISK 
THE TAPE AND STARTED AN INDEPENDENT RUNNfR (PURGFIT) TO 

TAPE IN USE 
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539 


n 


539 



i?5?8aoo 

END 12528600 



S# PATCH 540 FOR TSSMCP CONTAINS 1 CARD, FiX "IL" FOR "#N0 FIL ON DISK" D 540 

SI thts Patch corrfcts thf Result of an "il" input message in reply to 
SI a "#Ng ftl on dtsk" condition, previously, if an "iLcd*'* was input, 

SI A SYSTEM hang RESUlTfD, THIS WaS BECAUSE THE TEsT WAS FoR AN ACTUAL 
SI UNIT RATHER THAN ALL UNITS, 

Si Natal u^ patch 540 

SI MODIFIED TO USE MAGIC NUMBER 35, BECAUSf TSSmCP oOFS NOT HAVE 

SI PSFUOOMAXT, OBSERVE ON LInE 00277000 OF TsSmCP THAT TINU[353 ■ DATA 

$1 FOR THE LAST PSFUDO READER. RY DR» UCSc JaN, l7» 1977 

IF CSH*T2*RFPLYtPlMlX],tFF3) > 35 THEN % IL 

£|*******««******4i**i^**i»*****«*4i*i|t)|i*4>4'4<*4'*«4<)t<***i(>*il>4i**4i*4i4i4i4t4>**>l'4<*4i4<**4t4i 



SI PATCH 543 FOR TSSMCP, XVI, CONTAINS 13 CARDS. FiXES To NEW LIBMAIN D 543 

St THTS CORRFCTS A NUMRrR OF PROBLfMS IN ThF NFW L IrMa IN/D I SK , D 543 

SI 1. TF MORF TwAN ONf fXCfPTiON LtST APPEARS WtTHIN ONE CONTROL CARO. D 543 



D 


540 





540 


D 


540 


D 


540 


D 


540 


D 


540 


D 


540 


D 


540 


463380 D 


540 


D 


540 



SI Then the space for ail except the last ts not forgotten, d 543 

SI FIXED, AT ?0570070 AND ?0573350. n 543 

SI 2, IF THr FXrrPTlON LIST CONTAINS MORE THAN 13 FiLF NaMfS aND THERF H 543 

SI TS AN AS CLAUSE* THEN A CONTROL CARD FRROR MAv OCCUR FVFN THOUGH 543 

SI There reai.i.y is npT one. this is because the original file name d 543 

SI Has REEN overwritten by the exception list, fixed aT 20569930 ETC D 543 

SI 3. ftx to use defines rather than constants. d 543 

$« NATAL U, patch 543 D 543 

IF T GEO COPYN AND T LEO LOAD THEN 20566807 D 543 

IF T GFQ COPYN AND T LfQ LOAD THEN 20566822 D 543 

Tl,t46il3*H0LD3*CrN»F0UAL)l 20569930 D 543 

TF H0Ln3 Then PROr,rcNT]t«»l fLSE 20569935 D 543 

IF CN fiFQ TDENt Then PROGrCNT3l»ACCUMrO] El.SE GO POWtE) 20569940 D 543 

Tl Ir47l1 3»H0LD^*(fCN#.SCAN)«E0UAL)l 20569960 D 543 

IF H0LD3 THEN pROGT CNT+U i ■-! ELSE 20569965 D 543 

FORGETSPArE(XLST)) XLSTf=o; 20570070 543 

IF fCN*SCAN)«»EoUAL THEN IF Tl. [46113 ThEN 20570130 D 543 

ELSE IF CN 6EQ lOFNT THEN IF Tl,[46tl3 THEN GO POWIE 20570150 543 

IF CCN*.SCAN)«E0UAL THEN IF Tl THEN 20570190 D 543 

ELSE IF CN GEO IDENT THEN IF Tl ThEN GO POwiE 20570210 D 543 

IF XLST NEQ THEN BEGIN FORGETSPACEf XlST ) j XLSTipOI ENDI 20573350 D 543 

Sl***4'*4i*******)tt**i»i>t(*4'*i^*i|e**>ti4'«i|c*i(c****i»[iti>l<*i|Eitt*iti«i«t4i**4i***«4<****«iti«**«*iii4i** PI 543 



SI PATCH 548 FOR TSSMCP^XVI.O CONTAINS 1 CARD. WROnG FIB CHECK IN FINDOUTPUT D 548 

$1 ThtS PATCH PfirVrNTS rTNDOUTPUT FROM CHECKING ON a NON-fXtSTFNT FIB. D 548 

SI THIS SHOWED Up BY USfNGl D 548 

SI CC COPY */* FROM A TO Al END 548 

$1 WHfRF THF SOURCF TaPf HAD A WRITE RING, LtftMAlN/DISK READ THE D 548 

SI dirfctory corrfctLy liNn thfn tRtfd to ftnd The Output tapfI d 548 

SI FInDOUTPUT Then found the tape of correct name* tN use by D 548 

St LiBMAlN/DlSKf WjTH A WRTTE-RTNG AND TRIED THE "FtB". D 548 

SI PRNTABLErU3,tl5tl51 yAS ZERO SO THAT M[M[ 31 + 5 3 , [ Al 1 13 WAS TESTED, D 548 

Sl (Mr33 CONTAINS THE MrP VERSION NUMBER), ThE CONtENTS OF THE MEMORY D 548 

$J CEl.L TfSTfO COUlD BE SUCH AS TO SaTtSFY THF TEST^ ThUS, LTBMAIN/DISK D 548 

SI THEN WROTE An OUTPUT LABEL ON THE SOURCE TAPE AND FINALLY WHEN TRYING D 548 

SI TO DO THF NEXT READ* DFClDEO THE TAPE WaS nOT A LIBRARY TAPE, D 548 

St THtS WOULD ONLY OCCUR IF THE SOURCE TAPE HaD A NnN»ZERO PRN. D 546 

Sl BY RAY BARTHO» NATAL U, PATCH 548» MARCH 29» 197a D 548 

IF T3.[15tl53#0 THEN % DONT USE NONEXISTENT FIB 37027500 D 548 

Sl<l<****)|i****iti*%**i|i4i*4(iti*«4iiti*4i*>«i********4'**#i«i****i|<4i4i>|i**iti>l<)t>*4c*>tt!ti4ti^itt«i|i4>**<4i4i4i H 548 



S# PATCH 549 FOR TSSMCpIxVNO CONTAINS 5 CAROS, AUtO "OU" FOR "NO SORT MEM" 549 

STRFAMfPlMTX,T*R5xR6.A*I*SPArFf7))l 18790600 D 549 

BEGIN dS*ltT "."I St*LOC P1MTX| XSpoUT ♦','•» NOT ••#••. XGRK*549 18790700 D 549 

REPLYtPlMlX3.tCF3 •- 31 18791200 549 

J •■ ll 18791300 n 549 

S VOtnT 18791701 18791400 d 549 

SI thtS Patch provides "sn automatically assumfd response of "ou" to thf d 549 

St "ND sort MEM" MESSAGf. IN ADDITION* THE PREFIX oE THE MESSAGE D 549 



SI HAS BEEN ALTERED TO ♦♦.♦• FROM "I", TO IDFNTtFy THtS MESSAGE AS D 549 

Si "INFORMATION ONLV* TMSTFAO Of A "REQUEST FOR OPERATOR INTERVENTION". n 549 

SI G,R, KENNEDY 1?FEB75. BROCK U. PATCH 549 D 549 

SI MODIFIED BY DR» UCSC. To DELETE FROM THE SnUpCE* THE CoDE THAT NEVER D 549 

$1 CAN BE EXECUTED AS A RESULT OF BROCK U, PATCH 54o, JAN. 17. 1977 D 549 

Si SEF also UCSr DCMCP PATCH 713* NaTaL U, PATCH 7l^« DREXEL U, PATCH 751 549 

Sl********4t******«i*it<4'4>>ti*itc*«**it(*if*«4i4>4<*><<*******)|i«**)t'«*4:>((******i(c4t4<iti4i«4<*i«i;«4i n 549 



S# PATCH 550 FOR TSSMCP'XVl.O CONTAINS 3 CARDS. RESTART LOG AFTER INTERRUPT D 550 

St TF AN EXTERNAL INTERRUPT E.G. lOBUSY, IOCOmPLETE. PR INTERF I NI SH» D 550 

SI Timer occurs simUltawEously with a processor depfndent interrupt e.g. d 550 

SI communicate* then thf external interrupt Will be handled first and n 550 

SI thf logging stopped for the job. if THfrE HrE Nn independent D 550 

$1 runners waiting to Bf started and there is nothing in thf BED» the D 550 

St LOGGING WILL NOT BE RESTARTED FOR THE JOB WHFN ITS INTERRUPT IS D 550 

St HANDLED, THIS WAS DtSCOVERED WHEN USING THE TIMFC2) FUNCTION, 550 

SI BY RaY RflRTHO* NATaL U, PATCH 550» APRIL ?1 • 197a D 550 

S SET OMIT » NOTCNFWLOcGING) 48100499 D 550 

STARTLOr,(PlMfX>> 48100500 D 550 

S POP OMtT 48100501 D 550 

Sl*i»i*********i|r4<itc)|i4i***i»ci|t||,*4i4i%ikitc*]i|[4<*4t«**>t'**>|i**«****«*4i)|i*4i**«4i***i^4i)|c**«**4i>^ f) 550 



$# PATCH 560 FOR TSSMCP CONTAINS 4 CARDS, SMALLER PbD ROW SIZES D 560 

SI BROCK U. PATCH 560# NATaL U, PATCH 732 
OFFINr PAGFSIZF « 450#| * PACKET PAGE PBD SfZr 

150# % SEGMENTS PER ROW 

050* r PHYSICAL RECORDS PER ROW 

1000#I PHYSICAL RECORDS PER FIlE 



S# PATCH 601 FOR TSSMCp ConTaINS 2 CARDS* FIX pRD Nn DISK DS OOOOOIOO D 601 

St cORRrCT rLOSTNG ACTION FOR PrD/PUD FILes IN RACKrLOSE AFTFR 00000200 D 601 

St A NO USfR DISK nSl FtLF WOULD GFT STUCK iN USE. 00000300 D 60i 

$1 DREXEL U, PATCH 60i 8/10/75 00090400 D 60t 

SI MODIFIED FOR TSSMCP rY ORt UCSC FEB. 4» l977 00000500 D 601 

St SFf Also OFFICIAL PATCH 155 TO ncMcP OR 148 TO TsSMCPt AND 00000600 D 601 

Si hRfXFL U. Patch 66? O0OeO7O0 D 601 

ENDI 38601100 D 60i 

* VoIDT 38621500 D 601 

it************* ******************** ****t*******************^**********^ii^ n 501 



S# PATCH 602 FOR TSSMCp CONTAINS 4 CARDS, BAD InCW D 602 





D 


560 


02113091 


n 


560 


08699150 


D 


560 


08699350 


D 


560 


08699500 


D 


560 




n 


560 



tl THtS PATrH WILU "Sd" A JOr ThaT fiFTS INtfRRUPTED ANO "aNaLYSIS" n 602 

s» sefMs to Think its incw ts in low corei like m[Oi, n 6O2 

$« ITS HAPPENED A FEW TtMFS* KILLING MEMORY CFLL ZErO. D 60? 

SI DRfXeL U. patch 60? 10/5/75 D 60? 

$» MOnlFIEO FOR TSSMCP h TO NOTiFY US IF THIS CONDITION EVER ARISES AT 60? 

SI UCSC* BY DR UCSC FfB, 14» 1977 D 60? 

IF TNCW,tCF]<Pl777 THEN % SOMETHlNfi VERY WRONG 14015200 D 602 

BFGIN JARtPlMlX»6],[ltU*l| % SO BlT U015210 D 602 

FlLFMFRSf-"SFF TSS^t" PATrH " • 0» 0» 0» 0» 602)I!KLUGE MSGJUnS U015220 D 602 

FNni H015240 D 602 



SfPATrH NUMBER 603 FOR TSSMCP CONTAINS 19 CApDSt FIX COPY 1101107? H 603 

FORM 9 77t,% SWITCH n(PCC J^fORM^-wSpFC I AL" 20240000 n 6O3 

LRANDOM* 20392890 D 6O3 

SWITCH D»LF0RM# 20394000 D 6O3 

LRANDOMf ^, 20394090 D 603 

LNO»LnIsK.LTApFtLPuNrH»LPRlNT»LPAPFRt 20394900 H 603 

TPN0«.12I r,0 TO DrKchFCKI X "DtSK" MfANS DTSK SfRiaL 20457000 n 6O3 

BEGIN TpNft;?^J IF TYpEbCOpYn THEN BEGIN 20461300 D 60^ 

TPN0*22f Gn I COPY END El.SF 2o46l310 603 

IF SrAN^RArK ThfN rO fRRORj 20461320 n 603 

FNDI .. 20461330 D 6O3 

IF TYpEaCopYN THEm BEGIN TPN0»22I GO LCnPY END ELSE 20461810 603 

BFGIN TPN0«'4| IF tYPF^COPYN THEN BEGIN 20470000 D 603 

TPN0*15| GO TO LcOPY fNd fLSF 20470100 603 

TF SrAN^BACK ThfN rO fRRORl 20470110 D 603 

ENDI 20470120 6O3 

IF TYpEiCOPYn Them BFGIN TPN0«-16f GO LCoPY ENn ELSE 20475100 D 603 

LRANDOMi TPN0*10I go To DSKCHECKi 2o481900 D 603 

"rORM "i 77, X SWITCH DCPrC^ 41485600 D 603 

"RANDOM H, 78 , 4l4856l0 6O3 

*« D 603 

$1 THIS PATCH Corrects the inability to specify copies without o 603 

SI ALSO Specifying back up disk on the file card* d 603 

SI MOnlFlED 12/2/73 - SpFClFYING "DISK" ON A FiLE CaRD NOW MAKES D 603 

$1 IT A SERIAL FILE. EXI ALGOL FILE TAPf«A/B DISK D 603 

SI MOnlFlFD 12/21/75 - SPECIFY "RaNdOM" TO GET RANDOM DISK. D 603 

SI MOnlFIED 12/21/75 TO MAKE OThER PATCHES FIT BETTfR. D 603 

SI FROM DREXEL UNIVERSITY - JHH - 5/21/76 D 603 

SI THIS PATCH IS AFFECTfD BY PATCH 724 D 603 

Slit'4i*)tt****«**>t>i(<*)|i*)|i***4i*i|i*******<ti*#***4t**)|(«*4i***t|i4>*4<***<|i4>4i*4i«*«**4t*«4i>|ii|i>» T\ 603 



S# PATCH 604 FOR TSSMCP CONTAINS 1 CARD, DISK aDDRFSS ERROR OOOOOIOO D 604 

St THIS Patch corrects for an undetected disk adorers error at h/l. 00000200 o 6O4 

SI DRfXfL U, patch 604 3/20/76 00000300 D 604 

IF (RA-RL') GfQ RADD then RLEN I» ELrE 40060060 604 

%\1^^^1^1^*^^t|^^^•t^^^■t^*^^^^il^**i^**■^ll^^^^^1^*^^i^*^^1^*^^**^^■^^^^i^^^^^1^^^^ ^ 604 



t# PATCH 639 FOR TSSMrP CONTAINS 2 CARDS, rOF PSEUDft'RORS 00000100 H 639 



SI THtS patch CORRFCTS an FARLY FOF on PSEUDO-RdRS where THF last card 00000200 
$1 IN A DECK (USUALLY Am •♦END" CARDS WOULD NOT GET i ISTED In THE PACKET. 00000300 

S» MODIFIED 8/18/74 TO aVoID A SUPERFLUOUS REaD ON niSK SEG ZERO CAUSED 00000400 

$1 BY THE ABOVE PATCH. 00000500 

SI hRfXfL U. Patch 639» ORTSINaLLY 8/8/73 00000600 

IF f A«*NU*PfDUP) + i) > (Hr7] + n Then 07397000 

IF I>0 Then % NEXT buff exists 07401900 



S# PATCH 64^ FOR TSSMCP CONTAINS 1? CARDS, FIX PLaCEFINDER D 643 

IF (NTl*JARtPlMlX»1035»0 THEN GO SANDAi % NO LINE DICT 04709900 D 643 

DISKWATT(-T»30,NTni 04710000 D 643 

IF (AA*Rt0].[FF3)«0 OR S>RCn OR A>1023 THrN 04711000 D 643 

NTl*JARrPlMlX»p3| NT2*AA+S DIV 30j 04722000 D 643 

IF fNT3*NT2 DTV NTt + lO) > 29 ThfN r,0 TO SANOAI 04723000 D 643 

IF rNT^*JARrPlMlX,NT33)»0 THEN GO TO SaNDA» 04724000 D 643 

I*NT3*NT2 MOD nTH 1 SKWA I T( -T » 30. I ) I 04725000 D 643 

IF (J*RrS MOD 30]5 < THFN GO TO SANDaI 04726000 D 643 

AA*j;rCF]l IF .UfFFl • THEN J.tFFUll 04727000 D 643 

S VoIDT 04730000 D 643 

IF W#{W«.S DIV 30)THEN D I SKWa I T C -T, 30» r JARlPlMI X, (NT1*AA + W)04731000 D 643 

DIV (NT2sJARCPlMlX.a])*lo3+NTl MoD Nt2) DIV 1 )> 04731100 D 643 

$1 THIS Patch corrects « problem Of INCORRfcT Disk aOORESSFS n 643 

Si iN McP PROCFDURf PLAcFFtNdfRI D 643 

SI MODIFIED n/>5/73 - STOP POSSlBi.E COnTRol-STaTE iOOP IF BINARY D 643 

Si search BoTTomS out, D 643 

$1 MODIFIED 3/10/74 - ChFcK THAT THE SEGMENT fXiSTS IN THF PROGRAM* D 643 

SI ANn THF aODRfSS iS LrQ 1023, IF NOT, JuST GlVF SFG ANn ADOR, D 643 

SI ALSO, ELIMINATE USELfSS READ ON DISK SEfi ZFRO IF NO LINE DiCT. D 643 

SI DrEXEL U, patch 643 D 643 

SI MODIFIED FOR TSSMCP pY OR* UcSC JAN. 18i 1977 643 

SI SEF ALSO ucsfi Patch 515 d 643 

SI SFF ALSO DRFXfL U, PjTCHFS 209. 785» 789* aNr BROCK U. PaTCH 528 p 643 

%\^^1^1^^t^i^1^^^i^*^^i^^^^^^^^^^^1l^^^1^1^^^1,t^^1^n*1^1^*1^^^^^■^^%i^^^^^**1^^^*^^n**^'^^^ fS 643 



$# PATCH 644 FOR TSSMCP CONTAINS 2 CARDS, <MlX>TI D 644 

Si fix rug n 644 

SI ORfXfL U! PATCH 644 9/23/73 D 644 

SI MODIFIED For TSSmCp rY DR. UCSC FEB, 10» 1977 D 644 

T * C(CLOCK + p(pTRn DiV 601.t3Hl73 - 08533000 D 644 

IF T<0 THFN T ♦ T ♦ P400000I 08533150 D 644 

$l4'4t****>^4i*)ti***)|t4[****4i*«*4i*«*«*«*«**4i****4<4t**it(**4i**i|[****4i4ii)i*«****i(>4i*4<*itiiti ^ 644 



$* PATCH 6/15 FOR TSSMCP CONTAINS 1 CARD, FIX DfSKIn OOOOOIOO D 645 

S« THfS PATpH INTrr,FRlZrS THF ARgUMfNTS TO DIRKtO To TNSURF 00000200 645 

S« ThaT ThF ValUfS ARF tNTfRPRFTED CORRECTi.Y. bad THTNGS MTGHT 00060300 D 645 

$1 HAPPEN IF A REAL ( NOpMAI. I ZED ) NUMBER IS PASSED Tn DISKlOi 00000400 D 645 

SI nRrXrt U. PATrH 645 12/2/73 00000500 n 645 

rORFJerORrf STZF««St7FI niSKj.ntSKJ % INTFCfRtZF 06004100 n 645 

$l*<»i***********«***#* + ***********«*******«*******»**»****i|t******#»*«***«99999999 n 645 



S# PATCH 647 FOR TSSMCP CONTAINS 2 CARDS, ♦ FoR SpOUT D 647 

SI THtS PATCH PREVENTS PROBLEMS WfTH DATA PASSED TO SPOUT WtThOUT A D 647 

SI GRnUp MARK C*), SYMPTOMS USUALLY INCLUDE A BOMBfD MEMORY LINK. D 647 

SI A •♦•♦♦ IS PLACED IN TwE LAST CHARACTER OF ThE MESSAGE* D 647 

SI ORfXfU U. patch 647 2/2/74 D 647 

STREAM(X*f (MrMESSAGE-n.tCn-1) i 7 CrTFl))! 02142100 D 647 

DS ♦ LIT "••'♦l 02142110 n 647 



$# PATCH 654 FOR TSSMCP CONTAINS 4 CARDS. FIX LOCNTRL 

SI THtS PATCH VOfOS SOMf CODE FROM C0M23 2/25/74 

$1 IF LDCNTrL Was started from a PSEUDO DECK AND DS ON A NO FILE 

SI THF SYSTEM WOULD LOSf WHICH PSEUDO-RDR THE JoB HaD STARTED FROM 

SI WHFN LDCNTRL FNDFD TwE ACTIVITY COUNT FOR THF PSrUDO"RDR 

St WOULD NOT BE COUNTED DOWN THUS LEAVING THE DFCK rTUCK FOREVFR 

SI (Or until H/L WHICH rVFR COM|rS FIRST) 

SI 7/3/74 cORRfcTS A PROrLFM WtTH LOCNTRL FNnING Ir THE CARD READER 

SI GOfS not ready AFTER READING A CONTINUE CARD 

SI DRfXeL U: PATCH 654 

IF FIRST AND CDONLY AND NOT CONTINUE THEN 
GO EXIT ELSE 
$ VOIOT 07071912 
S VOInT 07072902 
$t **************** ***************************************************** *99999 



S# PATCH 675 FOR TSSMCP CONTAINS 5 CARDS, PRnPRT ES-EO D 675 

SI ThtS pat^h FfXFS The way tfRmiNaTf haNolfS an es-fd prnprt/otsk. 

SI the CODE WAS ALL WROmG SINCE XV,? REWROTE pRnPBT! 

SI NOW THE UNITS (PRInTfR* PUnCH» TAPE) SHoULD BE C|, EARED PROPERLY, 

$1 DRFXEL U, patch 675 6/15/74 

SI SFF nREXrL u. Patches 750. 826 

BPGIN 

IF (LUN*'L,t41l53)<16 THEN SLAPItOFFI 
LUN«.L.r46l23 + 19) % LPa. LPB. OR CPA 



OOOOOIOO 


n 


654 


00000200 


D 


654 


000*0300 


D 


654 


00000400 


D 


654 


00000500 


n 


654 


00000600 


D 


654 


00000700 


D 


654 


00000800 


D 


654 


00000900 





654 


00001000 


D 


654 


07059110 


D 


654 


07059U2 


D 


654 


07071899 


D 


654 


07072899 


D 


654 


99999999 


rt 


654 





n 


675 




D 



675 
675 




D 
D 


675 
675 


02261250 
02251300 
02261350 


D 

n 
n 


675 
675 
675 



SLAPITOFF; 0226H00 n 675 

$ VOinT 02?.6\70\ 0?2«H50 D 675 



SI PATCH 6BB FOR TSSMCP CONTAINS 2 CARDSt FALSE CONTROLCARO ERRORS 688 



CCrOMPlLE*0| % INITIALIZE 20564390 n 688 

CrUNTT*0| % tNitIaLIZF 20590030 688 

n 688 

D 688 

SI MODIFIED FOR TSSMCP rY DR» UcSC FEB. 7» l977 D 688 



St THtS PATQH WtLL CORRrCT A PROBLEM WITH TNCORRECT CONTROL CARD ERRORS 
St DRfXfL u! patch 688 ft/27/75 



D 


697 


D 


697 


D 


697 


D 


697 


n 


697 


D 


697 



$# PATCH 697 Fop TSSMCp ConTaINS 2 CARDS, lo FRr STaTUS D 697 

St THTS PATrH CORRfcTS 7 PROrLfM WhfRF STATUS COULd GFT AN UNfXP IO fRR 
St WHtLF PLAYlNft WtTH A TAPE DRtVe! IT SHOULD RECOvFR OK NOW^ 
SI DrfXel U. patch 697 l/?5/76 

DO Until (T1*WaIT10CAREa InX ?34n000012»P75»U))''0| 22112000 
TF Tl,r'>3l2]ii0 THFN t1 *WA T T I 0( P4200000000. 5» U ) I 22112100 



SfPATrH NUMBER r08 FOR TSSMCP, Xfll CONTaINS 3 CaRDS PRINT PRN WITH PG D 70fl 

TF TFST THrN RFfilN STRFAMc B»T, BUFF ) » 08051000 

BFGTN DS*lO LT T«PG-EDf PRN«« I SULOC B| OS4.5 DECJ DS»2 LIT")*"* 0805l00ft 

END* END X PRINT PRn WiTh PLaIN PGmT 08051005 

St FROM DRFXEL U, 

St sEr ALSO RROrK u. Patch 543 for tssmcpi Patch 70fl rfQUiRfs less codf 



s# Patch 715 for tssmcpIxv.s contains i card, mt in "errors" to "retries" d 715 

St CHANfiE "ERRORS" TO "RETRIES" IN MAG TAPf 10 MESSiGEf BECAUSE USERS D 715 

SI GET WORRIED BY 10 ERRORS, fAS THEY RIGhTFULI.Y SmOUlD, DR»UCSC) D 7!5 

St NATAL U. PATCH 715| f;PELLlN6 BY DRi UCSC D 715 

[l2|30il83»"RETRlES"»FPRCFN3.FPntFN+n.J,0.0)| 37285320 D 715 

$tiit*i*****nf!tt**********'¥****i'** ********************************** ********* n 715 
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D 
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D 
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D 
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n 


708 


n 


708 



S# PATCH 717 FOR TSSMCP. XV, 3 CONTAINS 13 CARDS, BACKUP TAPES NOT AUTOPRINT D 717 
SI TO MaKf printer BACKiiP tapes ignored by the AUTOpRiNT MECHANISM, D 717 



*« MOOIFIEn FOR MARK XV*? BY RAY BARThO AUG, 1» l97a D 717 

SI MOniFIEn FOR MARK XV. 3 BY RAY BARTHO NOV, 1» l97ii D 717 

$1 MONASH PATCH S56» MATAL U, PATCH 717 717 

LARFU FOUNn»FlRFlTUP»QUITl 08255800 n 717 

FNn FlSp % 0<0, PR MT 08259800 n 717 

BEGIN RRRMFCH«-TWOfU«-ABSfO)) OR RRRmECHI 08259810 D 717 

LABELTaBlFtU] ♦ 082596?0 D 717 

pPTiTlNU[V]t6l30li8]ftP?ltli43»51l 08259830 717 

MUlTITABLFtVJ «■ PRTI 08259840 D 717 

LaRELTaBLfCVJ ♦ PBT«TINU[U][6l30f IflJil 08259850 D 717 

P2iril43»5]| 08259860 D 717 

GO FlRrTTUPl 082S9870 n 717 

END 08259880 717 

* VOinT 08?6650i 08260899 717 

t VOinT 38639l0i 38639000 D 717 

tF J Then SETNOTlNuSErU.O) else LABELTABl,ErU],rH53*ll 38640000 D 717 



SfPATcH NUMBER 7?4 FOR TSSMCP CONTAINS 13 CARDS, FULL PAGE D 724 

IF RnrTARLEtii] OR MULT I TABLE tU la^FuLLPGE" 

THEN TF lOQUrtSIf t28in THEN I OQUET S ], (Fr ]*P«001 3 XnSL-CH 11 
ELSE !0QUErSi;rFFl**400i? % DBL SINrLE - SKfP TO CH 10 
ELSE % SKIP TO CHAN 1 ON FOP IF NOT 66 LtNES 
RDCTABLErV],r47»1 l^INRECrOlP-FULLPGE"! X LINES6A OPTION 
FORM ■ 76#» % SWITCH D( PCC J^FORM^-wSPECI AL** 
LINES66 m 77#» % 66 LINES PER PAGf 

LLINES66» % 
LLINFS66* 
LLINES66I % 

EQNtOJ ♦ "FULLPGE" I XSET UP MFID FOR FUlL PaGE 



"FORM ". 76 

♦♦LtNfS66«', 77 



* 



REV 12/9/7? MARK XfV 

THtS PATCH Wti.l CAUSr THE CHANNEL 12 PUNCH Ow THf VERTICAL 

EOPMAT TAPE To BE OVERLOOKED 

THF PRINTER IS CLEARfD RY DOJNG A SKiP OF A SINGLE OR DOUBLE 

SPACE OR IS NOT CLFaRFH AT ALL DEPENDING ON THE ORIGINAL 
CONTROL INFOliMATlON 

THIS HAS TESTED ON MnD III loS WITH B9242-4 PRINTERS 
THE DOCUMENTATION SAYS THIS SHOULD NOT WORK I.E. 

YOU ARF SUPPOSED TO CLEAR THE PRINTER WITH A SKIP TO CHANNEL 
THtS MtghT BF TmF CARF WITH DIFFfReNT printers AND/OR tOs 

ThtS Version wh.l wrj? on anv carriage tape eumimating The need 
FOR Special punches on channels lo & ii 

MOnlFlFD JULY 1973 • M^RK XV. 1 

MOniFIED 0?/i0/74 - MARK XV,? 

MODIFIED 1?/?l/75 To MAKE qTHER PATCHES WQrK BETtER 

FRoM DREXEL UNIVERSITY - JHH - 5/21/76 

NONf Of THF AROvf stuff is TRUE aNyMORe - iT WONj WORK WITH B-321S 

The PROBLEM is That when The B-321 hits channel 12 punch it keeps 

THE END OF PAGE STaTuS BIT ON UNTIL A SKIP To SOMETHING IS GIVEN 
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D 


724 


20240020 
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724 



$1 THtS puts MCP into a TffiHT LOOP. SO. Wf GO RACK TO USING A D 724 

$« SPrClAL FORMAT TAPE WHICH HAS CHANNEL 11 PUNCHED A DOUBLE SPACE 724 

$1 AFTER CHANNEL 1?. AND CHANNEL 10 PUNCHED A StNGLF SPACE AFTER 7?4 

Si THIS PATCH AFFECTS PaTCH 603 D 724 



S# patch NUMBER 725 FOR TSSMCP.XIII CONTAINS 5 CARDS DONT ALLOW PRN«0 D 725 

DI*-DI-ai DS*LIT " + "1 08029046 D 725 

IF NOT T»rtll] THfN tF T»0 ThfN 08033980 D 725 

IF T.rHn«0 AND T«0 THEN BERTN 0803399? D 725 

STREAMrBUFF)! nS*i7 LIT "NOT PR-EDr PRN«0 J*"! 08033993 D 725 

LABEl.TABLECU]* 914) 60 EXIT FND) T*ABS(T)I 08033994 D 725 

*' D 725 

SI THIS PATCH WILL PROHIBIT THE OPERATOR FROM PURGIwG A TAPE THAT D 725 

tl HAS A PHYSICAL RFEL NUMpFR Of ZfRO WITH THf PG MrSSAGE UNLESS D 725 

SJ HF FNTfRS a NUMrfR. such as ♦'PGMTR-122''I Hf MAY fNTfR "PrMTC-O" J) 725 

S» IF FOR SOME RfASON A PRN IS NOT APPLICABLE 725 

SI FROM OREXCL U. D 735 

$t *************** ******^|,*****************^^il,*^f^,*,^,t,*^,i^^t******^i***l^** f) 725 



S# PATCH 745 FOR TSSMCP CONTAINS ^ CARDS, pBT REfL NUmBErInG D 745 

Si THTS CORRECTS ThF PRoBLFM WHFRE A JOB USiNp, PBT USED MORE THAN ONE 

*» REFL BEFORE ENDING. A SUBSEQUENT JOB RFQUfRtNG PBT CONTINUED ON THE 

SI FINAL REFL OF THE ABoVE JOB* BUT WHEN A REEL CHANGE OCCURRED. THE 

SI VALUf of reel for THF CURRENT JOB WAS PUT fN THE LABEL OF THE NEW 

SI REFL. THIS MEANT THaT WHEN PRINTING. THE REFL NUMBERS IN THE LABELS 

SI WERE NOT CONSECUTIVE THUS INTERFERING WITH AUTOMaTlC REEL SWITCHING. 

Si THF REEL NUMbfR OF TuE FIRST TAPF IS NOw PLACED iN THE ROCTABLE. ANn 

SI ASSIGNED To nEW JOBS UStnG ThE SAME pBT FRoM THE RDCTABLE. ThiS 

SI CONFLICTS WITH THE DOCUMENTATION In THaT THE OEFaULT REEL NUMBER FOR 

Si Prt^s Nffd not nfcfsraRtLy BF ZfRO, 

SI NATAL Ul PATCH 745 

SI MODIFIED FOR TSSmCP rY DR. UcSC jAn. 17. l977 

RDCTaBLECU]*P(DUP»L0D)&rEElC14i3«i103 

llCDATEt24l3lll73&rYcUE[41t4H7]| 
RFFL*RncTARLFrU]itl4ll03i I GfT aCTUAL RffL NUMrfR 
$t*********************,^*******iti**iii0*#*0**ii^i*^,*^f**ni*******^i********i^^,t,i^ 



$9 PATCH 749 FOR TSSMCP CONTAINS 1 CARD, MEMORY PARITY ERR CAUSES "SD" D 749 

SI THTS PATCH WILL CAUSr THE MCP To HOLD ON To A PSfUOO-OECK OF A JOB D 749 

SI WHICH HAS BEEN DS-ED DUE TO A MEMORY PARITY. AFTER ALL. THAT WASN-T D 749 

SI HIS FAULT, 749 

St MODIFIED 6/15/74 - Sn BIT SET IN TERMI NaLMfSSAGa INSTEAD OF D 749 

SI IN OUTER BLOpK, 749 

SI DRfXfL U: patch 749 fBROCK U. PATCH 749 jS ThE UNMODIFIED VERSION) D 749 
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IF N»3? ThEn jARrPlMlX»63,[lii ]*1 ; % mEm PAr 0?206100 D 749 



S# PATCH 753 For TSSMCP,XV.3 CONTAINS 2 CArDS. TIMfC-6) TO GET MIX INDEX D 753 

$1 TwfS AOnS A NFW TtME FUNCTfON, TTMEf-6) WfLl, RETURN ThE MtX INDEX OF 753 

St THE CALLtNG PROGRAM aS AN INTEGER. D 753 

St NATAL U, PATCH 753 D 753 

Wni l4*WFFKnAY| GO TO INITIaTEI 187U500 D 753 

fr T* « (-6) THFN T4«.P1MIXI 18711690 D 753 

itrlf*il'jtt* ************************************ ****^*'l^****^****** ********* n 753 



$# PATCH 757 FOR TSSMCP.XVI.O CONTAINS 12 r.ARnS. RFMOVE UNLOAD FILES AT END D 757 

SI thtS Patch causfs thf files specified to be unloaded to re removed 

$} only AFTfR ThfY have all been dumped, also TF a disk parity OCCURS 
St WHTLF DUMPINr ThFN ThAT FILE WILL NOT BF RfMoVED! 
SI NATAL Ul PATCH 757 

MfFAINFO+J}.rfllt Jt^OI % DONT REMOVE IF UNLOAD 
PfMrFA + lJ.MrFADI X SAVE NAME FOR UNLOAD 
NT1I»P» MrFAll«NTn Mf FA+l] I sPf XCH ) I % REPLACE mAMES 
$ VolDT 28?«5801 

TmPi-FASZ DIV 2-11; 
FOR JfO STFP 1 UNTIL TMP 00 
TF (nAI»MtFAlNFO + Jn.rCF3«l8 THFN X FROM nySK 
TF UNLOAD THFN 
BEGTN MFTDt«MrFAljx9]l F T D t iiMf F A* 1 ♦ Jx2 H 

P(DIRECT0RYSEARCH(''MFID&lt3l47t 1]»FID»7)»DEL)} 
IF nSFn THrN rO TO INITUTEI 

fNdi 

$^**ii}^i*l^l***4t**^^itt^l^|tttn^i**tit^l^1|Htll^^t|^**^t**if ********** it* iti***iti**********'^********* 
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$i PATCH 764 FOR TSSMCP CONTAINS 3 CARDSi TAPES IN llSE AFTER FM OR IL 

St thtS Patch prfvents tape units from being marked as in use. this 

St occurs after an •♦IL* TO A TAPE UNIT iN RESPONSE TO A ••#N0 FIL ON 

St DISK" OR AN •♦FM" TO A TAPE UNIT CONTAINING A TAPf WITH NO WRITE RING 

St IN RESPONSE TO A "iFM RSD". THE TAPE WiLL RfMAIn IN USE UNTIL A H/L 

SI OR The Unit is cleared by a ••cl", 

St HERIOT-WATT U. PATCH 764 

St MODIFIED FOR TSSmCP rY DR» UCSC FEB, %» i977 

END ELSE LABELTABLEtT23t«-(*P(OUPm 

IF PRNTABLEtUJitl jl] THEN ELSE 

BFfilN LARFLTARLFtU]l»-(*PCDUP))t60 TO SOMeWHFRFI FNDI 
$i*********************tii**********^f*******^**it****** ********* *********** 
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s# Patch 79i for tssmcp contains 4 cards, typf pbcount at halt-load D 79l 

SI patch to tell The OPpRATOR how many back-up tiles there are on disk, 00000200 D 79i 

$« REfiARDLESS OF ThF SETTTmG OF "AUTOPRNT" 1 000©0300 D 79\ 

$1 THF FIRST I third CArDS RFMOVE THE DECLARATION FnR THE UNUSED LOCAL "L" D 791 

Si ANn VOIns SOME UNUSEn CODE REFERENCING "L" TO SPoUT THE "PBCOUNT" MESSAGE. D 791 

SI BY NILS OTTE. UNIVERSITY OF NATaL. SEPT.. 1976 00000600 D 791 

SI HFRIOT-WATT U. PATCH 791 00000700 D 79l 

SI MOnlFIED FOR TSSMCP pY DR. UCSC FEB. 8. l977 D 79l 

REAL NeXTLTNK. AD. X. K. SFVEN7. FORTY, EUSUi 40004500 D 79l 

IF PBCOUNT > THEN X TfLL OPERATOR 40320100 D 79l 

ENDI SPOUTfX)! 40320600 D 79i 

S VOinT 40338000 D 795 

$ I ******************** *jti********* ********* ^**t ***************** ********* n 79i 



$# PATCH 801 FOR TSSMCP CONTAINS 39 CARDS. MULTl KfYIN MESSAGES 901 

RfaL BUTF. KtR. TYPf'.' Mix. a, I, J. K, T» 16951600 

LABEL RFSTARTI 16951950 

RESTArTi 16954450 

TYPE * KEYINSCANCKTR,MiX)l 16954502 

IF (PR0CFD«-TYPE,rH5])«1 AND ( C I*TYPF . [ CF ] )*8 OR I«VCC 16954504 

OR la^3 OR la34) oR fPROCFD«0 AND 1-1) THEN El.SF % SS, CC .OC . FE. AX 16954506 

BEGIN 16954508 

STREAM(KTR.H)> 16954510 

BEGIN SI*KTR> 16954512 

8(A0(IF SO**"" THFN 16954514 

BEGIN Ll SI*SI+1| 16954516 

63fSi*SI*1» IF SC*"*"* THrN JUMp OUT! 16954518 

IF SC*"*" THfN jump OUT 3 TO YECH)I 16954520 

St*Si+1I 1695452? 

IF SCb""" then 60 TO Ll 16954524 

EnOI 16954526 

IF SC*"*" THEN JUMP oUT 2 To YEcHj 16954528 

ir Sr**!* ThfN 16954530 

PFftiN 16954532 

I«"Sii TALLY*1I 16954534 

DUIt DS»LlT '•*"l 16954536 

X| SI*S?*1| IF SC*"!'* THEN GO To X| I*SI| 16954538 

JUMP OyT 2 TO YFCHI 16954540 

FNnI St*RT*1))I 16954542 

YECHI KTr;TALLYI 16954544 

END STREAMI 16954546 

I*PI IF P THFN 16954548 

STREAMd, T*T*GETSPArFf62.0»0)*3)l 16954550 

BEGIN 16954552 

SUII 16954554 

8(60(IF SC""*" THFN JUMP OUT 2 TO L FLSE Ds*CHR))J LlOS^LIT"*"! 16954556 

FNn STRFaMi 16954558 

FNn CHECK FOR KpYlN RFCYCLF* 16954560 

TF PR0CFnw7 Then go to TbLfRRI 16954600 

IF T>0 Then % another message 16969710 

BEGIN 16969720 

BUFF*T» T*0| 16969730 
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RO RfSTaRTJ 16969740 D 80l 

ENDI 16969750 D 80l 

$« DREXFL U, patch 801 9/?3/73 D flOl 

St THIS PATrH WiLt ALLOW MORF THAN ONF: COMMANO IN EaCH KEYBOARP MESSaGF n 801 

Jl SFPARATrn RY SFMirOLoNs. AS SUCH! n 801 

St MXjTSlBLirC RfMOVF A/B n 801 

«» NOTEl NO KEYTN COMMANDS MAY BE CONTINUED AFTfR A CONTROL CARD IS D 80i 

*l FOUND, D 801 

%t MODIFIED 11/10/73 - CHAINED MESSAGES IGnoRFD FOR FE» OCi AX, D 801 

SI MOnlFIED 9/8/74 f) 801 

SI ThtS PATCH INHIBITS THE RUNNING OF KEYIN PROCEDURE '♦KEY1N2" IF THE BED D 80l 

$1 IS GETTING FULL, D 801 

SI IF THE OPERATOR COR I REMOTE USER) KEYS IN A MESSAGE CAUSING D 801 

$1 iNnEPENDENT RUNNER KfYIN2 TO RUN» AND THE rEd IS WITHIN ft ENTRIES OF D 801 

$1 FULL. A "WAIT,..(KfYtN MFSSARE)** WILL BF SPOUTEDI (NOT NFFDED IN TSSMcP) D 801 

St MOnlFIFD 10/5/75 " FtX PROBLfM WHERE IF INPUT MESSAGE IS LONGER THAN D 801 

SI 480 CHARACTERS! A * WOUlD BE PUT IN THE FIRST CHARACTER OF THE 80i 

$1 NEXT MEMORY LINK* LEADING TO GRAVE PROBLEMS. D 80l 

St ALSO. SUCCESSIVE SEMfCOLONS ARE IGNORED. D 801 

St MODIFIED FOR TSSMCP rY DR. UcSC FEB. 7. l977 D 80l 



S# PATCH 815 FOR TSSMCP CONTAINS 17 CARDS, ClEaR In USE FILE D 815 

SI dRfXfL u, Patch 815 ?/io/74 n 815 

SI ThtS PaTth WtLL fNaRLf ThF OPfRaTOR to cLfaR AN tN-USf FiLf by n 815 

Si dotns a wq reset filf a/B", it should be used Cautiously since d 815 

SI DIrE consequences could result from "CLOSING" A truly "In-USE" D 815 

SI FILE. IT IS USEFUL FOR THOSf STUCK IN USE PrD FfLES AND SUCH, D 815 

St MOnlFIFO 10/27/75 - RFPFAT McP FtLF tN USE MfSSArE ABOUT FVERY 2 MiN, D 815 

St MODIFIED FOR MARK XVt BY DR. UCSC FEBI li. l977 D 815 

SI SEE ALSO UCSc PATCH «;19 D 815 

WHILE NOT TOG pO 18031400 D 815 

COMPLEXsLfEP((CLOcK AND P177775«0 OR T0G)> 18032000 D 815 

SLFFP(tCLOCK].NOT cLOcK)| 18032010 815 

BOOLEAN FT«NI DFFINF FH<Fh1 )*M[T+FHn #1 % RESET FILE A/B 20764100 D 815 

SUBROUTINE CLEARTHEF ILE i % CLEAR AN iN-USp FtLF 20704200 D 815 

0^<5lN 20704210 D 815 

FH[4),t0ll06U0l % EXCLUSIVE 20704220 D 815 

FH?4],fl6l203*0; % OPfN rOUNT 2 20704230 n 815 

FHf9].r0ll?8]*0l I TORS & OPEN COUNT 1 20704240 D 815 

DlSKWAiTcT:rCF3i30,T:rFF3)l X FiX tT 207*4250 D 815 

FlLEH0LD(CMM[2]»CMMt3l»0»T,0)| % WakE Up WAITING PROCESSES 20704260 D 815 

LBMESS(CMME23.cMMf33.11»26.0»SP0UTUNlT*lll 2o704270 D 815 

ENd CLFaRTHFFILfi 20704280 D 815 

tF CN^ACCFSSn THFN 20714000 n 815 

IF NOT fFT*FXT06*rCN«FTLEV)) ThEN GO To CCpRRI 207i4500 8l5 

S VoIDT 20768000 D 815 

END ELSE IF FT THEN CLEaRTHEFILF ELSf BErIN 20769000 D 815 

$t***}ti******#**m*4'*****tii******* ****** *****i^i^***ti***,^*i¥*****i^******i^*** 'r^ 815 



S#PATcH number 846 FOR TSSMCP CONTAINS 7 CARDS. DUmMY FILE 846 



TF TOn.r3«53«30 THFN GO RETURNj % SPO 04105998 D 846 

FORM a 75*,% SWfTCH Dr PCC )'«FORm''-"SPFC T AL" ?0240000 D 846 

LOUmMY, 20392670 D 846 

LDUMMY* 20394070 D 846 

LDljMMYi TPN0*11| t " FORM sPO" - DLIMMy FILF 20451900 n 846 

"FORM ", 75 . % SWITCH n(PrC) 41485600 n 846 

"DUMMY •♦, 76 » 41485630 D 846 

«« D 846 

$1 THIS IS THE MCP PORTtON OF ThE dUmmY FILE PATCH, IT ALSO REQUIRES A D 846 

fit PATCH TO THF INTRlNSTCS. IT PROVIDES THE WORD ''nUMMY*' AS A UNIT n 846 

it typf! Output to "oummy" will cRfatf a •♦sPfctal tOrm spo ftLf^i n 846 

S« WhtCh The INTRinSiCS Wni. IRnORF. D 846 

$1 FROM OREXEL U, patch 846 JHH AT UcSC D 846 



$#PATcH 890 FOR TSSMCP CONTaIMS l73 CARDS - DATA02o/EBCD I C D 890 

SJAU6 1975 hfRIOT-WATT dNtVFRSTTY * LOCAL. ONLY* 

tIAND PERFORMS EBCDIC To BCL CONVERSION 

S« IMPLEMENTS 0aTA0?9 rARD 

filWAS PATCHES 900-902 IN MARK XV, 1, «*♦ NBj SfQUENCf NUMBERS CHANGED *** 

St 

procfourf frtablfi 
bectn label l» 
pc 0»x it., l.del) i 

Lt t t 

O," 327" » "1 ???'♦, "OTS?"! "/???•♦ f^-LK?**," J???", *♦????'•,♦•????'•, «RCB?*'»" A???" » 070033 10 

"#???••»•'????•♦ •"????•♦,•'????•', "????", ••"????", 

" 9 7 ??"»" 7? ??"»" Z? ??"»"?•???'*» "R ???'•»''????•'»''????"»"????"♦'* I ???"» "????'•, 
'•77?7","77?7" ,"7777", "????", "?77?", "7777", 

"8 # t ?«,♦•????••. "Y » X?" »"?97?"» "OS] 7", "7777" »"?7?7'',"7?7?'*»"H.r 7". "7777", 
"7777" » "7777" »"??7?"»"7???"»"7??7"i "7777" » 
J07770675, P05 3704 13»P067l 466 16»P65l 7647 3* 
#47574656, §45554453, "?7?7", "777?", P277426?0, 1*253524 36, 
$1 XQ«, •»????","????'•,"?«???•♦,•♦????", ♦•????", 
XQmARKADDRESSES 

"7?77"»"77?7"»"?777"i"7?77"»"77?7","77?7''»"???7"»"??77"#"77?7","777?"» 
"7777" t "7777" »"???7"»"7?77", "7777", "?7?7''» 

o,o,0t0,o»o»o,o,o,o,o,o»o, 0,0,0, % sPacf fOR ADoRFSSES 
0,0,0,0,0,0,0; 

ENOI 

REAL PROCEDURE SETUrEBTaBlEI 
BEGIN RFAL ADRI LAREL EXITi 
DFFlNr STORpAnnRFSS" 
Xi.Sif SilwLOC XI Sil«Sr+5» 
DSt«i3 CHR» Dn«i0l*5 *i 

EBTABLEl 
P(rMt(ADRl"*P(,FBTABLE) INX NOT 1)3],I0R)> 

SrTUPFRTARL.Pt«4nRl*AnR.CrF3 + 3| 

ir MrAnR*8l l m TuFN 
STREAM f XI «.0, TABLE I • ADR, QMARKT ABLE ADDRESS »«ADr+32 I Locations la ADR + 40)1 
BEGIN 
DIiwTaBLEI SIt»TARlE» Sll«SI+8| 
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2f 40f SU^St+AJ nS««4 ChRI))) 07003^68 D 890 

XFlRST FILL ALL OF AhDRFSSES WITH ADDRESS nF ?S 07003ft8? D 890 

SI i»QmArKTABLEADDRFSSj 0700348ft D 890 

Xt»SI| 07003486 D 890 

SIl«L0C Xj Sli«Sl*5l XPOINT SI AT ADDRESS OF QMARK^ 07003488 D 890 

DII'LOCaTIONSI 07003490 D 890 

DS»»3 CmR; 0700349? D 890 

Sl IbLOCATIONSI 07003494 D 890 

DSl»63 WDSI 07003496 890 

XNOW SET AODRFSSES FnR VALID CHARS INTO EBrDiC TaBLE 07003498 D 890 

SIIjiTaBLEI 07003500 D 890 

Dn»LOCATiONS; 0700350? D 890 

3f STOREADDRFSSI XSTORf ADDRESSES FOR LPbO»1,? 07003504 D 890 

XCnRRESPONDlNiG To BLANK»9 H0lE»8 HOLE O7OO35O6 D 890 

S!l*X") 07003508 D 890 

Sm«ST+63; SII»SI*1)> XSKIP 8 WORDS DOWN TABLE 07003510 D 890 

DII»DT+8I J!LP«»3 IS INVALID 0700351? D 890 

STOREaDDRESSJ XLP»4.;,;, 7 HOLE 07003514 D 890 

DI 

ST 

St 



STOREADDRESSI «LP*6:...7«8 HOLES TOGETHER 070035?? D 890 



DI 
SI 
SI 



wnT+8) XLPisS TS INVALID 07003516 D 890 

•X| 07003518 n 890 

St*1l ISKtP 1 CHaR down TABLF 07003520 D 890 



«i 



•Dt+81 070035?4 890 

*X| 07003526 D 890 

■St*1I 07003528 D 890 



STOREADDRESSI I:LP»8*..,.6 HOLE 07063530 D 890 

OIIbDT+81 0700353? D 890 

SllsXj 07003534 D 890 

SIi«Sl-t-ii 07003536 D 890 

STOREADDRESSI XLP«l0 . . . • 6t8 HOLES TOGETHER 07003538 D 890 

DTI»Dt+40| XMtSS 5 W0RDS.;.LPBn,l?,l3,i4,l5 070»3540 D 890 

StI«X| 0700354? D 890 

Sll«Si*ii 07003544 D 890 

STOREADDRESSI XLPl»l6...i 5 HOLE 07003546 D 890 

DIlBDI+81 07003548 D 890 

Sll»Xt 07003550 D 890 

Sll«Sl*l| 07003552 D 890 

STORFaDDRfSSI XLPslS.;;. 548 HOLFS TOQfThfR 07003554 n 890 

2fDIUDT+5?)l IMISS 13 WORDS ,. ^ .LP«1 9-31 07003556 D 890 

Sll*Xj 07003558 D 890 

SI|i»Sl + n 07003560 D 890 

STORFaDhRFSSI XLP»3?.;... 4 hOLF 0700356? n 890 

0Tl«iDt+8l 07003564 D 890 

StI»X| 07003566 D 890 

Sll»Sl+il 07003568 D 890 

SToREaODRESSi XLP«34i.t.t» 4R8 HOLES ToGETHfR 07003570 D 890 

ENDI 07003580 D 890 

ENDI 07003590 D 890 

STREAM PROCEDURE FrCDt CCONVERTfT NTO.-TaBLf, POINTERS ) I 07083610 D 890 

VA| UE InTo»TABlE»POINTErS| 070036^ D 890 

^*l^!***>^***i)t**ll^*^l^l**^e^^*^l^,m^^**Jtlm^l*ll^^^^tl^:***l¥*****************#***^ D 890 

BFRtN 07003630 n 890 

LOCAL HpfLP»SRCE,DEST,HpPTR»LPPTRI 07003640 D 890 

XPniNT HPPTR K LPPTR TO LAST CHAR OF HP»LP 07003650 D 890 

Sli»L0C HPl 07003660 D 890 

STlBSt+71 07003670 D 890 



HppTRi»SI; XHIGH PApT 

SlfLOC LP I 
St ttSt^^i 

lpptribSh xlow part 
SiiwinTo) si«»si+8; 
dii*imTo? 

xstart chararter translate loop 

2(40f 

desti;dt< 

xtranSFer low k high parts 

DIl»HpPTR| 
OSl«l chri 
DIIpLPPtRI 

DSIbI chRi 

SRCEt^SlI XSTORE si FOP NEXT PASS ThRU l.OOP 

XNnW FiMn THE POINTER ImTO TaRLE APPROPRIATE TO l,P 
SI I»P0INTFRSI 
LPfSTl«Sl+8)l 

SiJbScI XSt mow POlwTS inTo tabi.e p potnT ofpenoanT on i.p 
DI »»DfSTj 

SIiaST+HPl XSKIP SI THROUGH TARLE HP CHARS 
DS|«ChR| 
SIIsSrCD)! 
nTiwTaRLFi n!i»nT*3i ipoiNt to QMRK 

END CONVERT! 

BOOLEAN EBCniCi REAL FPTARLEAORI 

IF EBCDIC THEN 
BEGIN 

EBCOICI-FALSEI 

Mt(*P(,EBTABLE) TNX NOT 1 ) J . t 21 1 ] l»Ol 
ENOI 
STREAM(Xl«''PACKETS''lY|a"C0NTlNU''»7l«'»END. "» 
EBIi»'»DATA029''»lNBUFF)i 
INBUFri«SII 

FL5F BEGIN SH "I NBUFF I D f t sLOC Y» 
SII-INrUfFI 

IF 3 Sp«nC TuEN TALLYI»7 
ELSE BfGIN 

DflsLOC EBlOIieDI+11 

SIl*INBUFF» 
IF 6 SCiiDC THEN 



tvoin 

svnin oro3635i 



TALLYt»4» 
FNn FNn FNDI 



TF PTYPf ■ 4 THFN 

BFGTN PTYPFtiO) FPCDTCI.TRUEJ 

ebtableadrusctupebtablei 

FNDI 

ELSE BFGIN WHII.Ef Q l»WA I TIO(f 40000000+ INBUFf* 

FBC0ICxP40000000i,FIRSTk4+ 

IF EBCDIC THEN EBCDI cCoNVEpTf I NBUFF f 

ebtabl.eadr»fbtablfadr*4o) Else 

STREAM(0MK|«12lBCLt»l-EBCDIr»INBUFF)I 
BEGIN 

SII«INRUFFJ 

BCL fTF SC-W"*' THfN JIIMP OUT TO Ll)l 



070036flO 


D 


890 


07003690 


n 


890 


07003700 


n 


890 


07003710 


D 


890 


070©37?0 


D 


890 


07003730 


D 


890 


07003740 


D 


890 


070*3750 


n 


890 


07003760 





890 


07003770 


D 


890 


07003780 


D 


890 


07003790 


n 


890 


07003800 


n 


890 


07093810 


D 


890 


070038?0 


D 


890 


07003830 


D 


890 


07003840 


D 


890 


07003860 


n 


890 


07003870 


D 


890 


07003880 


D 


890 


07003890 


D 


890 


07003900 


D 


890 


07003910 


D 


890 


07003920 


n 


890 


07003950 


D 


890 


07009200 


D 


890 


07031200 





890 


07031300 





890 


07031400 


D 


890 


07031500 


D 


890 


07031600 


D 


890 


07032000 


D 


890 


07032100 





890 


07034500 


D 


890 


07036220 


n 


890 


07036250 


D 


890 


07036260 


D 


890 


07036270 


D 


890 


07036280 





890 


07036290 


D 


890 


07036300 


D 


890 


07036310 


D 


890 


07036320 


D 


890 


07036330 


D 


890 


07036390 


n 


890 


07039500 


n 


890 


07039600 


D 


890 


O7O397OO 


D 


890 


07039800 


D 


890 


07059000 


D 


890 


07059010 


D 


890 


O7O6O1OO 


D 


890 


07060200 


D 


890 


07066100 


D 


890 


07066200 


D 


890 


07066300 


n 


890 


07066350 


n 


890 



IF 5C«P14 THEN 
Lll BEGIN SllwLOC QMK i S f I -St +7 I 

DS|»1 CHRJ 

TAULYl-ll 
Si JelNBUFFl 
?f36(lF SC«''>'» THEN 

BEGIN INBUFFj*Sl| Dll*TNBUFFi 

nSl»UlT "•" 

FNnI 

IF SCb"^" then 

BEfilN TNBUFFI«SH DU'tNBUFFI 

DS|*s UIT "«'♦ 

ENDI SIl*SUin) 
ENDI 

QMK t«TALLY> 

ENDI 

qibP or QI 



S VOTDT 



07066400 


D 


890 


07066500 


D 


890 


07066550 





890 


07066600 


n 


890 


07066610 


D 


890 


070666?0 


D 


890 


07066630 


D 


890 


07066635 


n 


890 


07066640 


n 


890 


07066650 


D 


890 


07066660 


D 


890 


07066665 


D 


890 


07066670 


D 


890 


07066700 


D 


890 


07066800 





890 


07066850 


D 


890 


07066900 


D 


890 


07086000 





890 


07101000 


D 


890 


20374401 


D 


890 


2037440? 


D 


890 


20374403 


n 


890 


20374404 


n 


890 


20374405 


D 


890 


20374406 


D 


890 


20374407 


n 


890 


20374408 


n 


890 


20380000 


n 


890 


41483010 


D 


890 



INBUFF t" GET5PACE (2l»0»l) ♦ 2t 
STRFAMfrARDLOOl 
BEGIN Sl»-CARnLOri 

?fi6fTF sc»''>'' Then 

BErIN CARD|,OC*SIlDl»-CARD|,OCIDS* tiT ♦♦»♦» END* 

IF Scs"?" THEN 
BERiN CAROLOC*SnDI»CARDl.OClDS* LIT •""♦ ENDI 
SUSI + lin 

FNni 

MF KOUNT « ♦♦•'♦ THEN EQUAL FLSf % THlS IS AS IN SYMBOL 
"DATAOpg"* 4l * 



i* PATCm 891 FOR TSSMcP^XVtIO CONTAtNS 8 CARHS. CORRr(!T 890 fnATA029) n 891 

$t Corrects a mispunch tn patch 89o (900) where ebtable was set up wrongly 89i 

$1 DErEK BRUCE .. MAY I976 .. H.W.U, D 891 

$» D 891 

07063250 D 891 

X#««f «###«« f ##### f «« ###if if ft ##«## f ######«« )(i#f#f|#]|l«#ff #######«###«#### #07063251 n 891 

0700325? n 891 

"????'»t''??7?»'#'»????«f''?9??«'f''????'', "????•♦# 07003344 D 89l 

07003390 891 

Zf #f##«f«####«#«###f«l#]|||f <##### f #««#«#«#«### i|i##f#f ###»########### Iff #10700 3391 n 891 

0700339? D 89^ 

InBUFF * RETSpACEf ?i»Oti ) ♦ ?| O71O1OOO D 89i 



SfPATrH 892 rOR TSSMcP rONTAfNS 2 CARDS, rORRFrT 890,891 C 89? OOOOOOO/CARO 

P0777n675»P057704n»>067l46616»P65l76473» 07003340 C 89? 

INRUFF ♦ GFTSPACE(21»l0RUFFFRAREAVf 1) ♦ 2| 07101000 C 892 

«l This PaTTH MOOIFIFS THF nATA029 FEATURr CPATCH 890) SO THAT r 89? 

sistNftUr QUOTE rOMrNr, ?N ts cHANnrn to oOurlf Quote.* for thf tortran cats r 89? 

Si BY JHH, UCSC» 11 AUn 77 C 89? 



$1 MOnlFIFH 19 AUG 77 To UST ARFA TYPING INTRODUCED IN PATCH 167 



C 892 



S#PATCH 89? FOR TSSMCP CONTAINS ? CARDS. CORRECT 890,891 



D 89? PATCHFS/TSSMCP DISCARDED l## 



$# PATCH 901 FOR TSSMCP CONTAINS 1 CARD. TFRMtNaL LoG-lN MESSAGE *t*i*f***t*%$*$ D 901 

tl CHANrF ThtS DATF FACm TfMF ANY OTHER PATCHfS ARE ChANGFD* ♦♦♦♦♦♦* LOOK <<<<<< n 90j 

$t BY Tjp, UCSC moDIFtED BY Or, UCSC D 90i 

DS*35LrT'"'*»«nCSC B5700 TSSMCP OF 24 AUG r7# "l 03595560 D 901 



$# PATCH NUMBER 90? FOR TSSMCP CONTAINS 3 CARDS. aUTORN OPTION 



D 902 



AUTORN s OPTION. tl7|1]#. 

"AUTO". "RnOO", xi7s; 

IF AUTORN ThfN BFGfN RUNUMBFR»»4I STARTADFCKf 0) I END^ 



SI 

$1 3 TARDS HFLETE THE RmALL OPTION USED WITH SHaREDtSK ONLY AND 

sj Replace tt with the new autorn option which will automatically 
ti staRT psfudo readers When the system is started up 

$1 BY JHH MARK XVI, 

St SEE ALSO BROCK U, PATCH 571 FOR TSSMCP 

r- • ■ ■ t - 

$tm*^iili:^*t ****** itt*******m****0*********ili*i¥t*********m* ******************* 



00416640 
41434800 
44424100 



n 

D 
D 
D 
D 

n 
n 

D 
D 



902 
902 
902 
902 
902 
902 
902 
902 
902 



n 902 



SiPATCH NUMBER 903 FOR TSSMCP CONTAINS 2 CARDS 

TF L0»23 THFN RFfilN L0l«2r) Hll»28i fNO fLSE 

TF L0.27 THEN RFGIN LOI»0> Hlt«l5l END EI.SF GO TO DUNI 

St thiS Permits proc. ftndtnput to find untt pra. observe that pra 
St IS expected Tn have reei, number 1 mounted. Umless some other reel 

SI NUMBER IS designated explicitly, JHH&DR AUG, pHi 1976 

$t***tl*********^*******lk*******nt*************^l*****^*****************itf0* 



D 903 

37195375 903 

37195400 D 903 

n 903 

D 903 

D 903 

n 903 



Si PATCH 905 FOR TSSMCP^XVI.O CONTAINS 1 CARD, DELFTE UNUSEO LABEL DECLARATION D 905 

St RY ORf UfSC» OCT, 4. 1976 H 905 

LaBFL PXI 38660000 n 905 

tt*********************t^:************* ****** ***************************** n 905 



$# PATCH NUMBER 917 FOR TSSMCP, XVI , 00 CONTAINS 07 CARDS, "PBT ON MTX RW/L (PRN". D 917 



STRE:aM(MTX*TINU[UNIT].PRN*PRNTArLfCUN|T3.C30i18].X517-6RK 12530010 D 917 

n*T*SP4CFf 10))1 X517-GRK 12530020 n 917 

BFMN ST*L0C MTXI SuST*5» DS.-eUlT^fPBT ON •♦U5 1 7 12530030 n 917 

0S*,3CHR> DS;7LtT'» RW/L r"» DS*.5DFCl X5l7 1?530040 D 917 

OS*?|.IT««)*«| Dl«-Df-7l DS^-ftFlLLI X517»GRK 12530050 9l7 

FNn STRFaMi X517-GRK 12530060 D 9l7 

SP0UT(T)J !;517-GRK 12530070 H 917 

$t n 917 

sf This patch will spout a rw/i. message when a pbt is locked by comi9 d 917 

St To MAKF IT easier To DETERMINE LATER WhICh TAPE WAS ACTUALLY D 917 

SI PRINTED, D 917 

*' , . . , D 917 

SI G.R.KfNNpnY 2lMflR75. rROcK U, PaTcw 5i7 H 917 

SI See AtSO UCSc TSSMCP PATCH 9fl0 . BROCK ul PATCH S40 D 9l7 



S# PATCH NUMBER 950 FOR TSSMCP, XV I lOO CONTAINS 03 CARDS. CLEANUP CANOE STUFF. GRK; D 950 

S SET OMIT XSETUp SHORT/LONG CARRIAGE mESSaGE X550-GRK 05751400 950 

S POP OMIT X550-GRK 05754600 D 950 

«♦*« SP0UTITCT,CHRGK+1)| XSHORT/LONft CARRtAGE MsG X550-GRK 05756500 D 950 

*' _ n 950 

SI This patch cleans up some of ThE CANDE-REi.ATED messages a bit, D 950 

$1 1. DonT BoThER BUIlDInG/SpoUTImG the "SHorT/LONG CARRIAGE" MESSAGE. 950 

S« , , , , . 950 

Si RtRIKrNNrOY 08MAR76; BROcK u! PATCH 550 n 950 

Sli»4i«itt*i«>««*«*it>4i4i**it<4i**iti«**i(r4'*****)t(it>*it'**4i*i|i***4i******«*>|i***iK4i*4c****!((*4'4t«f4> D 950 



s# Patch 99i for tssmcp contains 9 cards, schpduuer changf n 99i 

SI Th»s Patch attfmpts to tmprovf ffftctency of tssmcp by d 99i 

SI reducing Unnecessary swapping without hurting terminal jobs, d 99i 

SI 1. the time slice is made much longer for jobs that use a lot D 991 

St of corf, n 991 

Sl 2. BATCH JOBS WHICH USF UP THEIR TIME SLICF ARE SWAPPfD OuT D 991 

St WtTh "TimEND" as before* BUT TERMINAL iOBS ARE SWAPPED OUT D 99i 

SI AT •♦FORCInDw* giving THEm PRECEDENCE OVEr THf "TImEND" JOBS, 991 

Si 3, BATCH JOBS WHICH ARF FORcFD OUT aRE SWflPPFO OUT WITH "TTMeNd" D 991 

SI RaThfR Than at "rORcFNo". n 99i 

St f) 99^ 

NTi*(SLNtMlX]x^O + COUnTCM IX 3k1 4 - NTUxB + 2061 21111540 99l 

IF PRTROWtMlX3,rPSFJ«3 THEN PRTROWI M 1 X 3 , t PSr 1*01 XUCSC KLUDGE 21212010 D 991 

IF NT3s2 THfN STOPM fLsE SWAPf 46030000 n 99i 

IF L0GLINE,r33«73#0 ThEN 46O3OO1O D 99i 

IF NOT SCHEDLTNErLOGLlME.r40l83] THEN 46O3OO15 D 99i 

FORCESWaP else TIMEnD else TIMEND.DI 48030020 D 991 

BEGIN SWAPdF L0GLlNE.t33l73^0 THEN 48038400 D 991 

IF NOT SCHFDLINF[L0GLlNF,U0t833 THEN FORCFSWaP 48038405 991 

ELSE TIMEND ELSF TlMENO.Di rO Tft RETURN FNDI 48038410 D 99l 

St n 991 



$J BY J.H.. UCSC» 7 APR 771 REVISFD 16 APR 77 REVISED 28 APR 77 D 991 



$# PATCH 99? FOR TSSMCP COWTaINS 4 CARDS* LAREi, THF HIGH-SPEED PAPER TAPE RDR D 992 

SI AUTOMATtCALLY assign a label to the high-speed Paper tape READER PORT D 992 

«« WHENEVER iT fiOES REAnY H 992 

SI BY DR. UCSC FEB, lo» 1977 D 992 

$ VOinT 22199000 D 992 

PAPFRl LARFLTArLF[U3 ♦ MULT ITABLE tU 3 * "PRa "i 22201200 n 992 

RnrTARLrriil ♦ PlOOOOOOOOJ % RtFL NR* » 1 22201400 n 992 

GO TO COMmONI 22201600 D 992 



S# PATCH 99^ FOR TSSMCP CONTAINS 2 CARDS, AUTo-rY OF SCHEDULE LINES AT H/L 993 

SI rY DR» UCSC FFR« lo» 1977 H 993 

FOR NTUISTfP 1 UNTtL LMaX nO 44430000 n 993 

IF SCwFOLfNrrNTl] ThfN SCHEDRUSYrNTl] * 0; 44430100 D 993 



S# PATCH 99"5 FOR TSSMCP CONTAINS 2 CARDS, DUPLICATE FORWARD REFERENCES 00000100 D 995 

SI WHfRF ThFRE are 7 OR MORE FORWARD REFERFNCfS TO THF SAME 00000200 D 995 

SI PROCEDURE. ThiS PATCh DELETES ALL BUT ThE iST FORWARD REFERENCE. 00000300 D 995 

$1 BY DRf UCSC FEB, 3. 1977 00000400 995 

SI LINE 00364000 ■ LINE 06020500 00000500 D 995 

St LtNf 00431500 » LfNr 03099000 00000600 n 995 

* VOinT O3099000 n 995 

* VoipT 06020500 D 995 



S# PATCH nUmBER 996 FnR TSSmCp ConTAInS 1 CARD. AUTO-LOGoUT AT MIDNIGHT D 99* 

OFFINE MIONIGHT • BEGIN LOGOUTi XcLOcK i»XrL0cK-W I TrHI NGHOUR J 02393200 996 

*' , , . n 996 

Si THtS AUTOMATTCALLY CwANrFS ThF LOfi FltE AT MioNTr,HT» SO THAT D 996 

SIfACm log file CONTAINS ONLY ONE DAY-S WORTh Of L0ft6tN6» TO D 996 

$1 FACILITATE ANALYSIS, D 99^ 

Si RY Jh» UrSC» 01/19/77 D 996 



SfPATcH NUMBER ?l98 FOR TSSMCP CONTAINS 2 CaRDS. M I XmAX» MAXLMAX 998 



nFFTNP mixmax»io#i 

OrriNE MAX|.MAX;90 *t 



X ShUO be art 8 + ACTUAL MAX LINES 



00004000 
00004500 



$t*iti*i^!^f****iti***^,iti*ilf4i>li1l*4,4i^it**0*}tt*******************ili****************irti^ 



n 
n 

D 



998 
998 
998 



**itr*it<4<iK<4<it>it< CONFLICTS 



iiiti*'i^**ili0^f*^f*1>t*TtiW:****************** ************** ************«****i**i¥ ****** 



P0777o675»Prt5770/HS»P067Uft616»?65l7647 3» 
#07770675»#05370413»P067146616»P65l 76473* 



07003340 C 892 CONFLICTED WiTHi 
07003340 r 890 nlSrAROFO 



fNBUFF ♦ GFTSpACF(91»T0BUFFrRAREAV»l) ♦ ?l 
InBUFF ♦ gETSpACF( 21»0»1 ) ♦ 2> 



07101000 C 89? CONFLICTED WITM« 
07101000 C 891 DISCARDED 



$ vOtot 



TNBUFF «» fiFTSPACFf 11 »t0BUFFrRAREAV.n + 2)X 



07086000 D 890 CONFLICTED WITMf 
07086000 D 155 DISCARDFO 



INRUFF ♦ GFTSPACE(?l»IORUFFrRAREAV»n + 21 
INRUFF J« GETSPACE (21»0»1) ♦ 2; 



07101000 C 892 CONFLICTED WITHi 
07101000 C 890 nlSCARDFD 



LABEL PEtTF.PAfLLi 
LABEL PE»TE»PAI 



18701010 D 143 CONFLICTED WITH« 
1870l0l0 136 DISCARDFO 



SWITCH S I* LLiPA.PF»TF»lT»US»D»TD»PR»IOT»TMR,An»WD» 
SWITCM Sl«PA»PF»Tr»fT,US»n»Tn»PRtlOT,TMR»AD»Wn» 



18701100 n 143 CONFLICTED WITMI 
167011OO 136 niSCARDFD 



Cll IF CI4I»«I4) i (•6> AND 14 < ft THEN 
Cll IF CI4|»I4> GFQ (-5^ ANn 14 LfQ 6 THfN 



18710100 
18710100 D 



143 CONFLICTED WITHt 

136 nlscARnrn 



BfgtN r,0 TO Srl4 + 6ll 
BEGIN GO TO S[I4 + «^JI 



18710200 D 
18710200 D 



143 CONFLICTED WTTh» 
136 DISCARDED 



FORM * 75#»X SWITCH D( PCC )''F0Rm''-''SPFC I AL' 
FORM « 76#. % SWITCH D( PCC )"FORM''*t,sPF-c j ^L" 
rORM ■ 77#,« SWiTCH DCPCC)«F0RM«-"SPFCIAL" 



20240000 D 
20240000 n 
20240000 D 



846 CONFLICTED WITHI 
724 DISCARDFO 
603 DISCARDED 



End else if FT THFN CLEaRTHEFILE ELSF BEGIN 
ELSE BEGIN 



20769000 D 
20769000 D 



815 CONFLICTED WiTHi 
521 DISCARDED 



HI«rMrTYPEDSPACEf4?^DtSKHEADERAREAV)]] & ^0r8l 38 1 1 0] Ij; 
Hl«»rM[SpACEffl2)3U3n[8l38llO]| 



280?0000 D 
28070000 D 



155 CONFLICTED WITHI 
119 DISCARDED 



"FORM ", 
'FORM ••» 
"FORM "» 



75 . % SWITCH n(PrC) 

76 . 

77» % SWITCH D(PCC) 



41485600 
41485600 D 
41485600 D 



846 CONFLICTED WITHI 
724 DISCARDED 
603 DISCARDED 



BEGIN SWaP(1F L06LtNf.[33|7])»o THFN 



48038400 D 99l CONFLICTED WITHI 



FNni 



48038400 D 154 



nfScARDro 



*****i,*it,,^* GENERATED OUTPUT *** ***i^r ** ***if*iti* ************* ****iti***itii^**iti^ni *************** ******** 

? EXECUTE ESPOL/DISK OOObOOOi C 

? CORE m 1?000 0000000? C 

? STACK s 1000 00000003 C 

? FlLr TAPf • SYMROL/TS^MrP OISK SfRIaL 00000004 C 

? riLr DISK s! TSS/McPa 00000005 C 

? FILE STUFF k TSSmCP/StUFF 0000000ft C 

? DATa CARD 000000(1 C 

SRESET LIST SET TAPE STUFF SINGLE C 

t SET AUTODUMP PACKFTS nUMP C 

S RESFT SEPTICTaNK CHECKLINK SAVERFSULTS STATfSTICS C 

SRESET nUBUfiCING DFX OKrNOPFX AUXMFM NEWLOgGTNG SHArEDISK C 

$ SET TWXONLY C 

l!B5700 TS-McP mark XVl,0:i7? 05/ 1 1 /77I ! 73-0000 1000 D 173 

DEFINE MIXMAX«10#| X998-00004000 D 998 

nrFTNE MaXLMAX«?0 #; % SHUD be ABT 8 + ACTUAL Max LINfS «998-00004500 D 998 

**)79** I173-00005040 D l73 

BEGIN STRrAM(At»TYpEDSPACEClo»SpOUTMSGAREAV) i )|X X15S-00005230 D IS"? 

SPaCESTaCKSIZE ■ B5#l X 15?'0001 3870 D 152 

SPaCESTACKSIZF ■ 105#I I152-00013890 D 152 

ARRAY SPACFSTACKr*l» Xl5?-000l 3910 D l52 

DEFINE I;i55-000i7005 D 155 

TYpEDSpACE(TYpEDSPACFltTYpEDSPACE?) m X155-0001 7010 D 155 

(GETSPACFfTYPEDSPACFliTYpE0SPACE2»0i+2^# % X155-00017015 155 

»ARRAYDFSrf ARRAYnFSCl,ARRAY0ESC2) • X 155-00017020 D 155 

f rMrnFTSPACFf ARRAYnFSCl»ARRAYDESC2»0)+9]1 t aRRAYOfScI rSlZEl)# «000l70?5 D 155 

.SAVEARRAYDESCfSAVEARRAYnESCl.SAVEARRAYDESC?) « H 55-0001 7030 D 155 

f tMtGETSpACEfSAVrARPAYDESClfSAVEARRAYDFSc2»l>+2]l Xl 55-0001 7035 D 155 

* SAVEaRRAYDeSCI fSlZEJ)# X00017040 D 155 

I *155-000170A5 D 155 

«X!?xxi;«««x«3!X«xxxi;««xtx»x«fS!XX!i;xxxj;«s;j;X!i;xi%ixi;!l«xixxxx)ixxxxx«x%!;!;ij;xj;i:x«oooi7ioo D 155 

%****t,*****m***********************************************************%000i7ll0 n 155 

X* ♦X00017J20 n 155 

X* MEMORY AREA TYPES STORED IN 316 FIELD OF FfRST MEMORY *X000i7l30 D 155 

X* I. Ink of all memory areas *X00017140 D 155 

** *X00017150 D 155 

%****,ti*^,***^***^!ilf*^itf***^,*)li:t****'t,**^,i^***rtl**#0*it:^,*:ti**^,#^iti**^i^t*********i^m*%OOOi7l6O H 155 

xxTxx«x«xxfi!XXX«xxfirxxx««?:'r*xxx«j;x«xxxxxxx«xx«?;«xxx«xxxxxxxxxxxxxxxxxx?x000i7i70 n 155 

DEFINE X155-00017180 D 155 

UNKNOWNARFAV » o# X X155-00017190 155 

•CODFARfaV i 1# X X155-00017200 D 155 

.OATAAREAV i ?# X X155-00017210 D l55 

.IoBUFFERAREAV b 3* X X155-00017220 155 

»AL60LFIBAftEAV « 4f X X15S-OOOI 7230 D 155 

»INQUIRY8UFFAREAV s 51 X X155-00017240 D 155 

»CObOLfTBARFAV ii 6# X X155-00017250 D 155 

.TyPFTtNTARFAV s 7t % Xl55-000l7260 155 

.DtSkhCADERAREAV ; 8# X Xl55-000i7?70 D 155 

,MAInTBUFFArEaV * 9* X X155-00017280 D 155 

.LBLEONAREAV • 10# X X155-OOOI 7290 155 

.SfGZEROARFaV * 11# X X155-00017300 D 155 

•STACKaREAV f 121 X X155-00017310 D 155 

.TYPE13INTAREAV « 13# X X 155-00017320 D 155 

♦ScRATCHDIRaRFAV m 14# X X155-00017330 D 155 



»OPSETAREAV ^ 15# % X155-0001 7340 

.DtRTOPaREAV « 16# % X155-00017350 

.SPOUTMSGARFAV x \7* % X155-00017360 

.UVROWaREAV m 18# % X155-00017370 

.JARROWARFAV « I9f X X 1 55-0001 7380 

.CIDROWAREAV 9 ?0# % X155-00017390 

»IN0INPUTAREAV • ?il % Xl5S-O00l7aOO 

.INTaRRAYaREAV m 22* % X 155-000 1 74 1 

♦RJFlNPuTARrAV ■ 23* % X155-00017420 

•DCOUFUFARfAV ^ ?4# % X155-00017430 

»OALOCROWAREAV » 25* X X155-0001 7440 

.SHCETAREAV m 26* % « 155-0001 7450 

.STAWORDARFAV » 27* % nC MCP ONlY X 155-00017460 

.KrYlNRUFFARFAV e 28* X X 155-0001 7470 

,'FSARFAV ; ?9# % 1155-00017480 

,0C19QUEUEAREAV « :^0# X DC MCP ONLY X 155-0001 7490 

»AVTaBlEAREAV « 3i# X X155-00017500 

jTrACFTABLFAREAV « 32# X DC MCP ONLY X155-0001 7510 

»SFGOICTARFaV « 33# X X 155-00017520 

»STACKPRTARFAV f 34# X X 155-00017530 

.McPTARLEARFAV m 35# X X155-00017540 

.TRSTACKARfAV b 36# X X155-0001 7550 

.FPBARFAV 9 37# X X155-00017560 

.CONTROUCARDARFAV 9 38# X Xl55-000l7b6? 

.LABELAREAV * 39# X X 155-00017564 

.MDUMPAREAV » 40# X X155-00017566 

.ESPDISKAREAV « 41# X X155-00017568 

,L0GAREAV w H2* % Xl 55-00017570 

♦CANDEfNPUTARFAV > 43f X TSS MCP ONLY X155-00017572 

.OrJObtNPutaRfaV » 44# X TSS McP ONLY X155-00017574 

,TyPF45 ; 45# X X155-00017576 

,TYPE46 ; 46# X X155-00017578 

,TYPE47 m H7* X X155-00017580 

,TYPf48 « 4e# X X155-00017582 

J X155-00017600 
XX«XXltXXXX«fXXXXXXXXXXX»XX1!XXXXXXXXXXXXXXXXXXXXXXXX?XXXXXX1!XXXXXXXXXXXXXO00i77O0 

X* ♦X00017720 

X* MEMORYLINkS *X000i7730 

X* , . , ♦X00017740 

%**4i***t*^iili*1i**'*i^*ilt****i*!ti**iti*********tr************i ***'¥* ********* 

XXXXXXX«XXXXXXXXXXXXXXX«XXXXXXXXXXXXXXXXXXXXXXXXXXX«XXXXXXXXXXXXXXXXXXXX 000 17760 

X X155-0001776? 

X FIELDS OF MFMORY ilNK OF ALL AREAS X155-00017764 

X X155-00017766 

FTFLn X155-00017770 

AREAAVAILF « OliOT X « FOR IN-USe AREA» « 1 FOR AVAIL. AREA 000i7780 

»^REASAVEF m 0?iOi X w 1 FoR IN-USe SaVe ARFA» » FOR OLAY AREA00017790 

fARFATYpEF • 03|06 X jYpE OF AREA (SEF aBOVd Xl55"00017800 

•aRfaMtXF « 09|06 X MIX INDFX OF OWNrR OF aRFA X155-00017810 

»aRfABACKL1NKF ■ 18|15 X ADDRESS OF PREVIOUS ARfA X155-00017820 

♦aREAFWDLINKF « 33115 X ADDRESS OF NEXT aRFA Xl55-000l 7830 

I X155-00017840 

SVOIDT 00068001 X155-00059000 

XX9:XXXXXXXXXXXXXXXXXXXX9:XXXXXXXXXXXXXXXXXXXXXXXXXXXxXXXXXXXXXXXXXXXXXXfXOOO60OO0 

%********************** ^******* ***************************** ***********%000600i0 

%* *X00060020 
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%* MlSCEl, t. ANEnUS FIELD DEFINITIONS *X00060030 D 155 

%* ♦X00060040 n 155 

%ttf**************if*************************iir*****'^**tc*********if********i^%00 n 155 

%%%%%%%t%%t%%%%%%%%%%%%r%%%%%%%%%%%%%%%%%%%%%%%%%%%t%%%%%%%%%%%%%%%%r%%%00060060 n 155 

X155-00060070 D 155 

FIELD *155-000600fl0 155 

FF ■ 18115 % Xl55-000d0090 n 155 

,CF ■ 33115 % I155-00060100 D 155 

»CTF e FF % «155-00060li0 D 155 

»CTC ■ CF % Xl55-00060l?0 D 155 

•MSFF ■ 16101 X Xl55*0006013n D 155 

I X155-00060999 H 155 

% X155-00061000 n 155 

% FIELDS OF AIT ENTRY Il55-0006l0l 155 

% Xl55-0006l0?0 D 155 

FIELD X155-00061030 D 155 

FfLFBIT ■ OllOl X X155-00061040 T) 155 

,OwNriT • 02«01 X X155-000610«5 D 155 

fDTMFNStONS , 03«05 X X155-0006 J 050 D l55 

,BiKCnTR m 08J10 X X155-00061060 D 155 

»Mf>M B 18115 X X155-00061070 155 

I X155-00061999 D 155 

X X155-00062000 D 155 

X FIELDS OF DaTa DESCRIPTOR X155-00062010 D 155 

X Xl55*00062020 D 155 

FIELD X155-00062030 D 155 

X FLAGBITF » 00»00 X X155-00062040 D 155 

X HaTaBtTf « OllOl X ALWAYS OfF FOR A DATA OFSrRfPTOR X155-00062050 D 155 

PpIT m 02101 X ON IF DESCRIPTOR POtNTS To AREA OF CORE X155-00062060 D 155 

»StZf ■ OeiiO X SIZE OF ARRAY ROW IF ARRAY DESC. X155-00062070 D 155 

X FOR INDEXED DATA dESC, nR NAME DESC. X155-00062080 D 155 

X #M0MADDrESSF m 18115 X ADDRESS nE MOTHER DESCRIPTOR. X 155*00062090 D 155 

X fADDRESSF « 33115 X IF PBIT IS ON THEN THIS FlELD CONTAINS ANX155-00062100 D 155 

X ACTUAL CORE ADDRESS, IE ThE PBIT IS OFF THEN 00062110 D 155 

X IF THE Value of this FIELo is greater THAN 00062120 D 155 

X OR EQUAL TO 5l2 THEN THE FIELD CONTAINS AX155-000621 30 D 155 

X DALOC ADDRESS WrtCH CaN Br USED TO LOCATE THE 00062H0 D 155 

X DATA TN THE OVERLAY DiSK aREA ASSIGNED TO THE 00062150 D 155 

X THE PROGRAM. IF THE VaLUE OF THE FIELD IS LESS00062160 D 155 

X THAN 512 THEN THtS FIfLD pONTAINS A CODE X155-000621 70 D 155 

X INDICATING THE STATUS OF THE AREA. X155-00062180 D 155 

X NEVER ACCESSED OVERLAY AREA, Xl55*000621 90 D 155 

X 1 NEVER ACCfSSEd SAVE AREA. X155-00062200 155 

X 2 NEVER ACCESSED OVERLAY AREA WHICH 00062210 D 155 

X WHICH IS ASSIGNED To AUXMEM, 00062220 D 155 

X 5 INDICATES OVERLAY IS CURRENTLY IN 00062230 D 155 

X PROCESS FOR THIS aRFA X155-00062240 D 155 

X 6 INDItaTfS OLAy HAD IRRECOVERABLE 00062250 D 155 

X ERROR WmEN overlaying THIS AREA .00062260 D 155 

X The next access to the area W!LL00062270 155 

X CAUSE The program To be TERMI- 00062280 D 155 

X NATEO. X155-00062290 D 155 

I X155-00062999 D 155 

« X155-00067000 155 

X MISCELLANEOUS DEFINES X155-00067010 D 155 

X X155-00067020 D 155 

DEFINE Xi55*00067030 D 155 



CURrUKcNTR b 16 # J! X155-00067040 D 155 

»AtTNdX b 6 # I i;i55-00067050 n 155 

.FTF « I8«l8ll5 # % 11155-00067060 n l55 

»FTC B 33M8tl5 * % i;i55-00067070 D 155 

»DrLTA = 11 # « Xl55-000670ft0 H 155 

I X155-00067999 D 155 

iMEMTOG « T06tEir43in#.MEMTOGMASK •ie20# X?0?-00080500 D ?02 

»ITSaLLBaTCh • TnGLF,tl6ll]# Xl 51 -00081785 D I5l 

IF rMEMCWAlTSTftRn»OJ3,fCF]sO THEN X20P-000931 10 D ?0? 

IF NnT MFMTOG THEN SIEEPC [ TOgLE 3 . MEMTOGMflSK 5ELSE ELSE00093120 D 202 

DEFINE STORPDYfSTOREDYj.STORFOY?)* I FtMEMf STORfDY 1 , 0] 1 , I CF 3»0 THFNX202-00093400 D 202 

MrMT0r,l»ST0RFnY2 fLSf X202-00093ftl0 n 202 

MEMrSTOREnYi,0],f i7lnl»ST0RF0Y9#l |?0?-000934?0 20? 

ARRAY WORKERSTACKf*Jl X DESC. TO OLDWIEROHArOI.DS STACK, *! 58-00299500 D 158 

ARRAY ESPTARt*]| REAL EsPfOUNTl % X158-00399000 D 158 

AKTORM » 0PTT0N.ri7|l]#, X902-00416640 902 

BOOLEAN OKSfgZEROWRtTeJ X203-00422100 ?03 

PROCEDURE FnRMTlME(W,T)| VALUE W»T| REAL W.Tl FoRWArD; X144-0048001 D 144 

BEGIN DSiB U LIT^'-SYSTEM HanG» F«"i XlOl '•00652400 D 101 

DEFINf PaGESIZE • 450*1 % PACKET PAGE PBD SiZf I560-021 1 3091 560 

IF P TmfN MAKFLOfifMfSSAfiEf ABSCTYPf))! X509-GRK 02134000 509 

END? TF TYPE lSS THEN TYPE»»64» !I;509-GRK 02134005 D 509 

T Id 6ETSPACFfS-if SP0UTMSrArEAV+64# 0) + il Xl55-0?1 34300 D 155 

MCMESSAGE-l J.tAREATYpEFl |« SPOUTmSGArEAVI X155-02134710 D 155 

STREAM(X*f (MfMFSSAGE-n.tCFl-n & 7 [rTF]))J X647-02142100 D 647 

nS ♦ LtT "♦"I SK647-02142110 647 

(S + 2+fMrBUF TNX Z ] . [ 1 i 5 1#''>'' ) ) r8 I 38 1 1 0]| 0?173296 D 144 

FORMTImE([nTi ]»XCLOCK+PfRTR))J Xl 44-021 73297 D 144 

STREAM(Nt»S-lfCH"Sx8-Y,AAl"RUF JNX ZiBB l» NT 1» X144-02173300 D 144 

RUFt«CRUFCR33)l X144-02173301 n 144 

BEGIN nS IS 7 LtT •* "t S! »* tOc BRI DS I «» 8 CHRI 02173305 n 144 

nS i« 9 LtT ♦♦ •♦I ST !■ AAI X144-02173306 n 144 

Al*TypEDSpACEn5.SP0UTMS6AREAV)l Xl 5«i-02205475 D 155 

IF N*32 Then JARtPlMlXf63.tlll]*lj % MEM PAR X749-02206 100 D 749 

S I* IF MfTl.AREATYPpF » CODFAREaV THFN X155-02216000 D 155 

MfT*l3l[CF] FUSE 0|X XI 55-0221 60l D 155 

ELSE PfMrT-?].AREATYpEF,DUp) # TyPE7 1 NTArEAV ANDXj 55-0?2l6600 D 155 

PCXCH) # TYrEISInTArEaV) aR L • 01 X155-02216610 D 155 

BEGIN X675-02261250 D 675 

IF rLUNi-L. 141153X16 TheN SLAPItOFFI X675-02261 300 D 675 

LUN*L,r46l2] + 19| X LPAt LPBt OR cPA X675*0226 J 350 675 

SLAPTTOFFI X675-02261400 D 675 

SVOIDT 02261701 X675-0?26l 450 D 675 

BEGIN T«-(A INX P540000000000000)«,i 7C8i 38 « 10 ] I X140-02287240 D 140 

IF «;FPaRATE then T«'Ta(LUN#2?)[3?|47in X140-02287245 D l4o 

ELSf T*T«(LUN)«22)[28t47ini X140-02287250 D 140 

DEFINE MIDNIGHT m BEGIN LOGOUTj XcLOCK I sXcLOrK-WI TrHI N6H0URI X996-02393200 D 996 

ST0REDY(0,0)l X209-0?3961 30 D ?0? 

STOREDY(0»ni X202-02396500 D 202 

TPtPrMfTA«pTYPEDSPACE(5l3tMDUMPAREAV)33 X155-02434430 D 155 

& 513[SIZE3 » 5[21i45l33|X X155-02434435 D 155 

STORfDY(0»0)| X202-02434490 202 

STORrDYrO,!)! X202-02434530 D 202 

LSI TF SC * "•"' THEN If Sr * LEfTARROw THFN X 1 41-02615100 D Hi 

BEGIN St lai Si + 11 fiO Tn LSI ENDI Xl 4l -0?6i 5200 D l4l 

IF SC « LEFTARROW THEN GO Tft EXIT| Xl 41 -02615300 D 141 

LRL J» TYPEn5PACEnO»LABELAREAV))J! X155-02639000 D 155 



XI CLKrO] Is 
S SET OMIT 9 NOTfNEWLOr, 

IF LOGSTOPPrOCP'l 
S POP OMIT 

PR0rTlMrCPlMlX3 

RtaL. PROr.rnijRr tHPutsca 

VaLUf NUM»FLAfiS, 
REAL MOOE»SoUrCF 
$ VOInT 

IF P? 



GING) 
MIX] THEN 



PROCTlMEfPlMlX] El.SE 



♦ rCOCK ••■ P(RTR)I 
NfMOnFiROURrF.DFS 

sfomodei 

#dfst, NUM. Flags, s 



El. 



Rfal 



Ui»(n 

IF U« 

THEN 
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S 
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F 
INPUT 

Rf 

BO 
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n! 



procfouRf 

VALUE nUM 
real MODE 
EST,[30l3 
1 AND SFQ 

EG IN 

TREAM (Al 
REGI 



ENOI 
tDEST],ST 

AUTl 

ndi 

SfANl-Ul 
AL RESULT 
OLEAN ZER 
ROTfMpOUT 

r3?inf»o 



tNPuTSCa 
. FLAGS, Sf 
•SOURCEf D 
]*DEST[3o 
MODE «U»»1 
JSTRll 

»0lDEST)i 
N DI leDI- 
DSI»2Lt 
AUDI ) 

D)l 



>0 thfn 

ENP 

SE % IT 

IF ITSA 

REGIN 

taN 

CLT 

sle 

GO 

FNn» 

N cMOdF 
QMODEI 
ESTtNUM 
1331153 
WHEN 
E, THEN 



T,NUM,FLAGn,SFQMOnF)l 

eomodEi 

M0VF(15,P2,T*<») eLSf M[T44]*P2» 



S BELOW 

llbatch 



TH 
TH 



KstLL] l« 
CK !• CLOC 
EP(0,0)l % 
TO STARTf 



E FEnCF 
En % Wf 

NaRSCTi 

K + PfR 

WAIT F 

X TRY A 



WIiL WAIT AWHILE 



TR) + 128| « 2 S 
OR TIME OUT, 

GAIN. 



SOuRCF»DEST,N||M,FLAftS,SE«MOnF)l 



.Flags, SEQ 

)-ClNPTSC, 

NLY "•>•• LE 

USER BACK 



If IMAKE IN 
T** -"IX (SPACE) T 
XRFLtEVtNg 



MoDEl 
C30«33ll 
FT IN R 
SPACFB 



PUT LOO 
PRfVf 
ThTS IS 



INPTSCt30t33ll53 

uf,. and if sfom 
to front of buff 



K LtKE a NULL LINE 
NT rANDE FROM 
ENn OF SfQ mode 



Xlt3" 
X113- 
X113' 
X113- 
HIS- 

X159' 
1159" 

X159' 

X995' 
X108' 

X151" 
X151' 
Xl51" 
Xl51' 
X151- 
EC.X151' 
X151' 

X15I' 
X151' 

X159' 

Xl59. 

Xl59' 

)l Xl59« 

0DEX159' 

ER,X159' 

X159' 

X159" 



• "Hi 

otimeoutT 

twN.cS?! 1 3 J 
i 

IF zfRottmeout Then 

BEGIN 

RESUlTI.?! 
STREAM(Dl»A,tCF3) 
DSi»8 LIT "T 
60 TO RfTURNI 



Nn.T 

ST 
BE 



FN 
RF 



ENDI 
IF P(0,ROS) < F 
BEGIN CLICK l» 

COMPLEXSI. 
ENn fLsf 
NPUTScANfMODF.SORr 
REAMCTl-fCEND^Jir 
GIN Sli»A9l DIl»Ln 
IF 4 SC NEO Dr 
TiBTALLYl 
01 
SULTl»POLTSHl 



ENCE THEN % BELOW 
CLOCK ♦ P(RTR) ♦ 
EFP(INPUTANKtT3,I 



I 

IME3 



THE Ff 
1023 ♦ 
NPUTN 



NCE 

102^1 % 34 SEC, 

R TfRMSETCPIMIX) 



)t 



,A3,fMrAl3.rFF3-X.r2«83),FLAGS,0)j 
1?)t?4U2l63)lA2)l 
C T| DIl»Dl*4l 
THEN TaLLYi^Ii 



X159' 
X159" 
X159- 
Xl59< 
X159' 
X159' 
X159- 
X159' 
X302' 
X302' 
X302' 
X30?« 
X30?' 
X309. 
X30?" 
X309' 
X302' 
X302' 
X30?" 
XlSl- 
X151' 
X151- 
X151' 
X159« 
*30?- 
X30?' 
X302' 
X302' 
X302' 
X302' 



■03067500 
•03067600 
"03067700 
'03067800 
'03067900 

'03071000 
'O3O72OOO 

'03073000 

'03099000 

03120000 

'03147000 

03147100 

'03147200 

'03147300 

03147400 

03147500 

'03147600 

03147700 
'03147800 
'03276800 
03277000 
03277200 
03290600 
032^0700 
03290800 
03290810 
03290820 
■03290830 
03290840 
03290850 
03290860 
'032§0B70 
03290880 
03290890 
03290900 
03292300 
03296250 
03296300 
032^6350 
03297410 
03297415 
03297420 
03297425 
03297430 
03297435 
03297440 
03299700 
03299730 
03299750 
03299780 
03307000 
03307100 
03307110 
03307120 
03307130 
03307140 
03307150 
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Nll»INPUTSrAN(M0nr»S0RCtA3»MrAl 1,[FF]»FUArS»0^| X159-0331 3400 D 159 

fiO TO RrTURNi X302-03317500 n 302 

nS*35L|T'«»*|ti)CSr B5700 TSSMCP Or 24 aUG 77, "I !!;90i -03595560 n 90i 

DfFiNE SF0M60E ■ IF STATAB , STAT IONTyPEi»TWX THEN FALSE I;t59-036U600 D 159 

ELSE aiNFDlSCtSTA3«TWX AND SEoARRAY [ STA 3>«0 )#l Xl 59-0361 4700 D 159 

NUMj«»NUM+INPUTSC«N(MODE»ROURCF»J«BUFSZ-Tl»FL»GS»SEQMODFU X159-03618200 D 159 

iNPuTANKTSTAJlfrrlfRl^fTr Tl r,TR THrN T1 ELSE X155-03618800 155 

TYPEOSPACEf 32,0BJ0P1NPUTAREAV))+?I XI 55-O361881 D l55 

IF PAPERTAPE ThEn X30?-036?4400 H 30? 

BFGIN STRFAM(T|»("END''i»SOURCE)I X3o2-03624401 D 302 

ttFGIN SIi*LOC Tl OlfSOURCEt X302-036B4402 n 30? 

Sli-ST+51 ni«»nT+ll X302-03624403 n 302 

IF 3 SC«DC THEN X3O7-O36244O4 P 30? 

BEGIN 0I««DI-3I DSl»3 LIT •• "I ENDI X309-036?4405 30? 

EnDI X307-03624406 D 302 

FLAGSl»4i X302-03624407 D 302 

END ELSE X302-03624408 302 

BFGTN STRFAM(T|«f»'FND'')lSOURCE)* X30?-0362441 D 30? 

BEGIN SIipSOURCEI Dll«LOC It X302-03624420 D 30? 

Sl|sST*ll DII»D1*5I X302-03624430 D 30? 

IF 3 SC NEo DC THEN TALLYlell X302-03624440 D 302 

TIbtUXYi X302-03624450 n 302 

pNni X302-03624460 n 302 

IF POLISm Then go To CEI X30?-036?4470 D 30? 

ENDI X302-03624480 D 30? 

BEGIN STRFAM(SnURrEiK«T«»PAPERTAPr)J X30?-03624600 D 302 

IF SrwMARK Then X302-03625300 D 30? 

BEGIN Dn«L0C Kl DSI»3 LIT "FNO^j X30?-036?53l0 D 30? 

Sl««Sl4ll D!l»DI-3l X30?-036?5320 30? 

IF 3 SC»DC THEN X30?»03625330 D 302 

BEGIN TALLYl»2| K|pSII Dll«K| X302-03625331 302 

T(DIi«Dl-3j X302-03625332 D 302 

DS«"3 LIT " ")> X302-03625333 D 302 

END ELSE TALLYI»1I X30?-03625334 D 30? 

ENDI X309-03625340 D 30? 

Rt«PnLlSHi X302-03625600 302 

FLaGSI»IF R THfN 4 fLSF X302-03625610 D 302 

TF tfR»2) AND PaPfRTaPf) TwfN ft fLSf X30?-03625620 n 30? 

IF ((PmP) AND FLAGS) THEn 4 ELSE FLAGSI X30?-036?5630 D 30? 

NUMl"NUM+INPUTSCflNfMODE»SOURCE»J#BUFSZ. FLAGS, SEQMODEu *159'03634000 D 159 

lAST<;F6r03,CFF3 I* C S I •TYPfDRPACf X155-03638500 T) 155 

(32,rANnFTNPUTARFAV))+2l X155-03638600 D 155 

DS I^ 8 DECI DS l» 2 llT " ♦«! Xl 49'»03733500 D 149 

DI l« DI • 101 DS I* 7 FILLI Xi49-03734000 D 149 

SI li F» DS »» 10 CHRI X149-03735000 D 149 

STRFAMfLCFL6l«L0NGCARRlAGErSi].V|P(V»»GETARFA(0)>+l)l03826100 D 150 

BErIN X150-03826200 D 150 

nS IP 6 LIT "OELSK^^I X150-03826300 D 150 

I.CFL6 (DS IP 3 LIT »<»)l Xl50"038?6400 D 150 

nS IP LIT LEFTARROWi X150-03826500 D 150 

FNnI X150-03826600 D 150 

STRFAM(LCFLGI*LONr,CARRlAGFtSn,vlpV + Ul X150-03900000 D 150 

BEGIN X150»03900100 D 150 

OS IP 3 LIT ••«<#«'l X150-03900200 150 

LCFLG (DS IP 3 LiT ••<'')l Xl50-039©0300 D 150 

DS tp LIT LEFTARROWI X150-03900400 150 

FNDI X150-03900500 D 150 



IF (P( I0DrSC.t3l5] X?03-04004110 

$ SET OMIT 9 DKBNODFX X203-0400fl 1 19 

»nUP) « ?H OR PCXCH lK203-0ft004l20 

t POP OMIT X203-0400<ll?1 

) « P6) AND X203-04004130 

NOT lonFSC.t24tll AND X203*04004140 

(((P(MtfODFSC.rCF]J»DUP) FOV 0)"NoT 0) OR X203-04004150 

ffPryCH) FOV 32)iiN0T 0)) AND X203-04004 155 

NOT OkSFGZEROWRITF THEN X?03-04004 1 60 

BYBYf'^SEGMENT ZERO OVERWR f TE*"i 23 ) » X203-04004170 

IF I00.r^l5]»30 THEN 60 RETURNI % SPn X84A-04 10599« 

UAREL FRRORS»OTSKFRR»DS»X,SWiUP»DK#DX»nXlfnC»OK»Lll * 16B-04 125000 

SWfTCH TYPf «* 0K,UP»OK»0K,dK»0K,0K.0K,0K,oKj X168-04128000 

IF U«30 Then X20l-04129100 

BEGIN MrPl53 + CH«RI X201 -04 129200 

DCI0FINISH(R)I X201-04129300 

END! X201-04129400 

* Xl6fl-04129520 
% THFrK FOR a PaRTtaL WORn BINARY RFAD WITh NO PaRItY ERRORS, X168-04129530 
% This tS illegal and is MARKEO as being a parity error, X168«041?9540 

* X16R-04129550 
IF (R, [18112] AND P44621 « ^0440 THEN % rIN READ-NO PAR X168-04 129570 

IF R,ri5»3] # ((8-R, [22113) AND 7) THEN % PART WD XFER«168-04 129580 

R.r?8in «■ MOD3I0SI % MARK AS PaRITy ERROR IF MOD III 04129590 

IF (E«»fMrP153+C3l»R).r26l7])+(Vf«T,r5l83) NEC THEN ^201 -04 1 30000 

SVOIDT 04167801 XI68-O4 1671 00 

RRRMecH * NOT TWOtu'i aNd RRRMetHI % IeT STATUS FIND IT X 1 1 2*04383900 

TF RnrTARLFfll] OR MULTTTABLFrU3«''FljULPGF'' J:724-04391550 

Then if lOQUFrsi.rpsn j then i0QUEfSi,cFF]*P400i^ xdbl-ch ii O439156O 

ELSE IOQUE[S3.tFF3»?400l? % OBL SINGLE " SKIP TO CH 10 04391570 

FLSF X SKIP tO rHAN 1 ON FOP IF NOT 66 UtNfS X724-04391580 

TF fNTl*JARtPlMTXil03)B0 ThFN flO RANnAj % NO LlNp niCT «643»04709900 

0TSKWATTf-T,30;NTl )l X64 3"047i 0000 

IF (AA«.B[03,tFF3)BO OR S>B[13 OR A>lo?^ THFN X643-0471 1 000 

NTl*JARtPlMlX»A3| NT2*AA+S DlV 30i X643-04722000 

IF (NT3*NT2 niv NTl + lO) > 29 ThfN ftO TO RANOAI 1643-04723000 

IF (NT!5*JARfPlMTX,NT33)eO THEN GO TO SaNDAi X643-047?4000 

I*NT3 + NT2 MOO nTh O ISKWa I T{-T# 30. I ) i X643-04725000 

IF CJ*BrS MOD 303) < THFN GO TO SANOaI 1643-04726000 

AA*J,tCF3l IF J.tFF3 • THEN J,tFF3»ll X643*04727000 

S VOinT X643-04730000 

IF W#fW*S DTV 30)THEN Dl SkWA ? T f «T, 30, , JAR t Pi M f X, f NT 1 *AA + W 304731 000 

DIV (NT?;jARrPlMlX,fl3)+103*NTl MoD NT2) OlV 1 )l «643-04731 100 

OKSFGZfrOWrITEi"TPUE| X 20 3*05665 399 

0KSF6ZfR0WRITFi*FaLSEI X20 3*05665401 

S SET OMIT XSETUP SHORT/LONG CARRIAGE MESSAGE I550-6RK 05751400 

$ POP OMIT X550-GRK 05754600 

X**X .. SP0UTlTCT,CHRGK4l)| XSHORT/LONG CARRIAGE MSG X550-SRK 05756500 

* VOinT X155-05804200 

PfPlMyX)! PlMtXl»0| 1155-05811460 

LI«fiETSPACFf A.SCRATchDtRARFAV»SCRaTChSaVE)| Xl 55-0581 1470 

COREI-CORFI S1ZE««SIZEI DISki.DiSkI X InTEGERIZE X645-060041 00 

$ VoIDT X99I5-06020500 

GFTESPDISk I» C(P(DUp).tCF3*FSPTAR.tCF3)x8 X158-06031000 

S l» (ESPTARlrCF3+S.r30|153) 8 Rt30l3]| X Xl5e*06038000 

IFfNRrF3AND FOURMASK ) , [ 1 t 353it0 TiJEN GO CLOSEITI Xl 17-06058630 

IF(NRtF + 53AND N I NEMASK ) , 1 1 1 28 3^0 THEN Xl i 7*06058640 
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oksegZf:rowritei"Truei X203-O6059659 

OKsFfiZrROwRlTFi»FiiLSFI «20 3*06059661 

SVOthT 06098201 1111-06097600 

RfAi. NEUI define UbIJT#,UA*UT#»NEUi«NEU + J#,NFU2«NEU4.NEU#; Xl49-0635105«» 

SpoUTER(Zt?5.(NOT LIBmSG) AND n» X5?3-063'53660 

rORfiETSPACEfRUFDl P(XlT)t X528-06353675 

TfRMlNATE (MTX« 99[CTn)» XSlZ^OdAl 1 01 

If eSH*T2;REPLY[PiMlX],tFFJ) > .^5 ThEN % IUX540-06463380 

END ELSE LABEUTARLE[T2]l»-(*P(DUPni «76fl-06463f 40 

REfilN X160-06468000 

TF P(0»ROS) rTR fence X160"06470000 

SVOIDT X160-06471000 

FLSF COMPtFXSLEFPf (B OR RfPLYTPIMIX] GTR OR TERMSET (PI MI X ) ) ) I Xl 60-064721 00 

SVOIDT 06472501 X160-06472200 

TF JARrPlMTXi9),SYSJ0RF NEQ LiBMAlNCOnF THEN GO INHIATEI Xl 60-06473100 

X89l»070»3250 
X##f f f ###! ##f#|f ##f «il#f «ff If ###«###«####»#«# f|ff|f#««#ll#flf«#«|#|#f Iff #07003251 

X891-07003252 
PROCEDURE EBTABLFI X890-07003270 

BEGIN LABEL L» X890-07003280 

PCO»XIT..LtDFL)> X890-07003290 

Lilt X890-07003300 

Of" 3??". " 1 ???", "OT S?" » "Z???" » "-LK ?"i« J???", •»????"»•»????••, •'HCB?*'*'' A???"* 0700 33 10 
♦»#???♦♦ »"????" I •♦????•'• «♦????♦'.•♦????'•, •"•????'♦, X890-0700 3312 

•♦ 9???" #••????♦♦. "Z???'* »"????•' '"R???" »"????" »"????♦♦»•'????••» "I???" #"????•'# 07003320 
•• ????•♦»••????''#•♦????•'.•♦????♦', •♦??7?",'»????''» X890-07003322 

"8* I ?"»•♦????♦• •"Y.x?". ••????♦' ♦"OS]?" I "????•'»'♦????•♦»•'????'♦ •"Ha?"* "????•'» 07003330 
"????••»♦♦????'• »"????•♦»•♦????•♦»••????•' #"????•♦» X890-07003332 

?0777o675ff 0577041 3t #0671 466 16»P651 76473 » X892-07003340 

§47574656. #45554453, ••????••, ♦•??7?". #27742620 »#25352/t 36, Ke9O-O7O03342 

"????"#••????'♦,♦♦????'•,'•?«???•♦,••????•♦, «????•', 1691-0700 3344 

XQMARKAnnRESSFS X89O-O7O0335O 

"??? T" »•♦????'♦»•♦?? T?** » "????'♦»•♦????''»•'????"»'•????•♦, ♦•?9 ??♦»»"????♦♦,•♦ ????'♦, 0700 3352 
•• ????••, «♦????•♦, "????•♦,••????♦♦, "????•♦,•'????'♦, X890-0700 3354 

0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 0.0.0, % SPacF fOR ADhRfSSES X890-07003360 

0,0,0,0,0,0,01 «890-070»3370 

EnDI X690-070©3390 

X89t-07003390 
X####f «« #*«f f ##«# f f #f f f f«f f f «f««##««fl##ff#*««##lf #«####>«#### #fl#####ff 0700 3391 

X891-07003392 

REAL PROCEDURE SeTUPEBTaBLEI X890-07003400 

BEGIN REAL AOrI i.ABEl EXITJ X890-07003410 

DFFINf STORFADDRFSS* X890-07003412 

XI»Sli Sll«LOc «l STI»St+5| X890-07003414 

DS»ii3 ChRI DT»«DT+5 *l X890-070034)6 

EBTABLEl X890-07003420 

P(tMt(AORI««P(,EBTABLE:) InX NOT n]]«lOR)> X890-07003430 

SFTUPEBTABLFI«ADRl»ADR.rCFl+3| X890-07003440 

IF MtADR+Sn • TwFN X890-07063450 

STREAM f Xt«0, T ABLEt« ADR, OMARKT ABLE ADDRESS I «ADR+32» LOCATIONS I ■ADR + 40) J 0700346? 

BEGIN X890-07003464 

Dl»«TaBLEl Sn««TAnLE» Sll»SI+8i X890-07003466 

2(40CR| l«SI+4| nSt«4 CHRM^I X890-0700346e 

XFtRsT FfLL aUL Of AnnRFSSFS WTTW ADDRESS OF ?S X890-07003482 

Sf IwQmARKTABLEADDRESSJ 1890-07003484 

X|«SI| X890-07003486 

SIl»LOC Xj SI»"SI*5; XpOiNT SI AT ADDRESS OF QMARKr X890-07003488 
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D»««LOCATlONS> X890-07003490 

DS|»3 ChRI X890'»07003«9? 

SI JsLoCATlOigSl J!890-07003fl9fl 

DSf"6^ WDSl *890-07003'!»96 

XNOW SFT AOORFSSFS FOR VALID CHaRS INTO FBcDlC TaBLF Xe90-07003498 

SiI-TaBLFI X89O-O7O035OO 

DH.UOCATiONSI X890-0700350? 

3(STorEAOORFSS| XSToRF addresses for lP'>0»i»2 X890-0700350/> 

XCORRESPONDING TO BL'aNK.9 H0LF»e HOLE X890-07003506 

Sl»»X| X890-07003508 

STl»St4.63l StI«St*1)I «SKtP 8 WORdS DOWN TABLE X890-0700351 

Dll«Dl+8« «LP«3 IS INVALID X890-0700351 ? 

SToREADDRESSi «LP»4.I... 7 HoLE X890-070035t fl 

Dit»Di*8i XLps5 IS Invalid xe90-070035i6 

SII»X| X890-07003518 

StI*St+1I ISKtP 1 CHaR nOWN TABLF X890-07003520 

STOREADDRESSI XLP»6!...7»8 HOLES TOGETHER X890-070035?? 

DI«»DI+fl| X890-0700352« 

SH"X| X890-07003526 

STI»St+1I ,,,, «890-0700352e 

STOREADDRESSI %lPmQ\/^6 hOLE X890-070fi3530 

Dn«D| + 8l X890"07003539 

Sll»X| «890"0700353fl 

SIt*Sl+ll X890-07003536 

STORFaDdRFSSI XLP«l0t..t6n8 HOLfS TOGETHER X890-07003538 

Dl»BDi+a0| IMiSS 5 W0RDSr,.LP«li ,12tl3,ift»i5 X890-07003540 

SImXi X890-0700354? 

SIl"Sl+ll X890-0700354fl 

STOREADDRESSI XLPl*t6,,,, 5 HOLE «890"07003546 

DTl»0T+8l I890''07003548 

SilfXl X890-07003550 

S1I«St*iI X890-07003555> 

STorEaODRESSi «LP«lfl.... 5«n HOLES TOGeTHfR X890-07003554 

2{DIt»DI+52)| XMISS 13 WORDS ,,, .LP«l9-31 X890-07003556 

SII*X| X690-07003558 

SII»St*1I X890-07003560 

STOREADDRESSI XLPsSp.i... 4 HOLE X890-07003562 

DTI«DT+8| X890-07003564 

S|I»X| X890-07003566 

S|I»St+iI X890-07003568 

STOREADDRESSI «LP»3fl.;!... 418 HOLES TOGETHER 1890-07003570 

ENDI X890-07003580 

ENDI X890*07003590 

STREAM PROCEDURE EBCD t CCONVERTmNTO.TABLF » PO jNtERS) I X890-070§36l0 

VAI.UE. iNTOiTABLEiPOINTE^Sl X89p-0706361S 

%**^,0iti^*0**iti1f:ti*1,**^^,**1fi),*i)it *************** ***0*,^0*iftit)L***1ft»ttilf^i* 

BFftiN 1890-07003630 

LOCAL HP»LP»SRCEiDE5T,HPPTR«LPPTRl 1890-07003640 

IPoInT HPPTR 4 LPPTR To LAST CHAR OF HP, LP J(890-07003650 

SH*LOC HPl 1890-07003660 

SII»St+7| X890-07003670 

HPPTRiwSII IHIGH part 1890-07003680 

SlULoC LPI l890-070«3690 

Sll«»Si+7l X890-07003700 

LPPTRi'SIl XLOW PART «890*07003710 

SII»INT0I SII«»SI+8l «e90-07003720 
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OUsINTOJ j;890''07003730 

XSTART CHARACTER TRAKlSLATr LOOP 1890-07003740 

2(40( X890-07063750 

DCSTIbDtI X890-07003760 

^TRANSFER LOW K HIGH PARTS X890-07003770 

OUpHPPTRI J;690«07003780 

DSl»i CHRI X89O*O7O0379O 

DImLpPTR; X890-07003fl00 

DS|»1 CHRl X890-07003810 

SRm»5II IsTORF si FOR NfXT Pass thru loop X890*07003B20 

XNOW FTNo THF POtNtfR tNtO TABLf APPROPRtatF to LP X890-07003830 

StI»POINTfRSI X890-07003840 

LPfSlt*Sl+fl)l X890-07003860 

Sll«Srl XSI NOW POIwTS INTO TARLF P point DFPENnANT ON LP J!890"'07003870 

DII«DrSTI X890-07003880 

SiihSt+hpi hsktp St Through table hp chars i(890'0700389o 

OSUChRI «89O-O7O039OO 

SIipSrCE))! X890-07003910 

DIisTaBLEi DI|«0I*3| XPOlNT TO QMRK X890-07003920 

FNn cONvfRTI X890-07003950 

BOOLEAN EBCDTCI REAL FRTaPLFADRI J(890-07009200 

IF EBCDIC THEN X890-07031200 

BEGIN )I890"07031300 

FBrniri"FALSFI «890-07031400 

Mrr*Pf ^EBTABLr) fNx NOt 1 ) 3 , r2« 1 1 H»0| X890-07031500 

ENRI X890-0703t600 

STREAM(Xl«'»pACKETS"|Yt»'«cnNTlNU".ZI»'»END, "» X690»0703?000 

EBl*'*DATA029''»lNlBUFF)i «890»07032100 

INRUFFt»Sn X890-07034500 

ELSE BEGIN SI t »I NBUFF I Dt IwLoC Yl «890-07036220 

siuinbuff; X890-07036250 
IF s sc<»nc Then TALLYiii7 X890-07036260 

ELSE BEGIN X890-07036270 

nHwLOc ERIDII»DI*1I 1:890-07036280 

Sn«!NBUFFl 07036290 

IF 6 ScioC Then X890-07036300 

«VnID X890-070363t0 

TALLY|»4| 07036320 

fVoln 07036351 X890-0703633D 

END END ENDI X890-070I6390 

IF PTYPE ■ 4 THEN XB90-07039500 

BEGIN PTYPEUO) EBCDIC IhTrUE I X890-07039600 

EBTABLEADRI^SETUPEBTABLEI »890-07039700 

FNOI X890-07039800 

FLSE BFGIN WHILFC0I*WAITIO<?4OOOOOOO+INBUFf* X890-07059000 

FBCnTCxP40000000i,rtRSTx4* 1890-07059010 

IF FIRST AND CDONLY AnD NOT CONTINUE ThEN X654-070591 i 

GO EXiT ELSE X654-070591 1? 

IF EBCDIC THEN EBCD IcCoNVErTC I NBUFF » X890-07060100 

EBTABLEADR»FBTABLFADR+40) ELSE X890-07060200 

STREAMf 0MKi»12lBCLl»l-EBCDIr»INBUFF)j X890"07066100 

BFGIN X890-07066200 

SI»«INBUFFI «B90-07066300 

BCL n^ sc*""" thfn Jump out to ldi 07066350 

IF SC«*14 THEN 1890-07066400 

L1« BEGIN SlIoLOC QMKI S i leS t +71 1890-07066500 

DSisl CHRI X890-07066550 
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TALLYJwll X690-07066600 

SllPlNBUFFJ X890»070666t0 

?f36tlF SC«''>«« THEN X890-070666?0 

BEGIN INBUFF|«SI| DH'TNBUFF) X890-07066630 

DSi»LlT •♦»•• X890-07066635 

ENdi X890»070666<I0 

IF 5C««''>*' THFN X890-07066650 

BCCIN tNbUfF««StI nf»*»N8UFr» X890-07066660 

DSfP LIT "•"• X890-070666A«5 

FNn» Sll'Sl + lm *890"07066670 

rNnl X890-07066700 

QMK I»TALLVI J:890-07066800 

EnOI X890-07066850 

.w«,^ ^-._,„,« Q'^P 0" 0' X890-07066900 

SVOlnr 0707t912 X654-07071899 

tVOtnr 0707?902 X654-07072899 

* VOtDT X890-07086000 

FIRSTCARO t« GETSpACE(10fC0NTR0l.CARDAREAV»l) + ?»X «15«>-07087000 

ELSE BEGIM OUTBUFFOUn !■ OUTrUFF l« X155-07095000 

GETSPACF(60»lOBUFFFRARrAV»l)*2|X X 155-07095100 

H t» SAVEARRAYDESCr30,0TSKHFADERAREAV)lX X155-07097000 

InBUFF ♦ GETSpACE(9i»I0BUFFrRAREAVM J * ?l X899-07101 000 

ADECK ♦ 0» FIRSTOrSEC * X179-071081 00 

« X172-07108999 

* X172-07109001 

SvOtnr 07118401 X106-07118100 

IF PACKETCARD ■ 5 THEN X 106-071 1 8500 

IF PTYPE » 3 AND NOT CONTiNUF AND NOT AnEcK ThEN Xl 06-071 39520 

SOMBII ir 0U«18 THEN FORGETlTlX X161 -07231000 

ShFAT »• rMrri«TYPFDSPACE(3l,SHrETAREAV+64)3] & 30t S I ZE ll 807256400 

SfgO I* TvPFPSPACFf 30tSEG7ER0ARFAV+64i)X X155-07257400 

SHFATt?4)|PMCPl X 129-07262100 

SI*U0C Til X511-07295100 

IF SCJ^'^O" THFN Go TO AQ X5l 1 -0729510? 

FLSE St*SI+1i X511-07295104 

AOt BEGIN DS*3 L|T "s. "I «51 1-07295160 

IF Ul«Nl«*P(DUP) + n > CHr7]*n then X639-073$7000 

IF I>0 Then % next buff exists X639-07401900 

DS»i«8LlT'*lx0x4000**l DS i i»BL I T-OPACKFT**! Xl 33-07418700 

H l« CIDROWfR] l« [MrSI* X155-07433000 

GETSPACE(94,C10R0WAREAV+64»1 )+2i] & 94 SIZE! X155-07433100 

Tl»6ETSPArEf l3iC0NTR0LCAR0ARFAV+6fl»0)+4l X 155-07446000 

IF rMFMtMlX»0]J.rrF] i fence or ITSAI.LBaTcH TmEN X151-07560000 

DT*0I-«I DS*LIT w+Hi X725-08029046 

IF NOT T.rllU THEN IF T»0 THEN X725-08033980 

ir T.tlJll^O AND T»0 THEN BEGIN X725-0803399? 

STREAMfBUFF5l DS*17 LIT "NOT PG-EOf PRN»0)*"| X725-08033993 

LABELTAPLFtUJ* #141 60 rXiT FNDI T*ARS(T)I X725-08033994 

IF TEST THrN BEGIN STREAMt B*T. BUfF ) I X708-08051000 

BFGTN nS»10 LTT^PG-EDfPRNB"! SI*LOC Bl DS*? DErl DS»2 LI T")**! X708-08051 004 

ENn» END X PRINT PRn WiTh PLaIN PGMT X708-080S1005 

SVOIDT 08135001 X I4i -08095000 

XXXXXTX%XX«XXXXXXXXXXXX>:XX1!fXXXXXXXXXXXXXX»;XX!>!Xj;XXXj!X>;XXXXX«XXfXXXXXXXfX0ft095050 

^******* ******* *:t> ************** *****m*i^^l^**^,t^:^^^^*t**^^i^.*t^*l|t}t^J^i^,^^ 

X* *X08095150 

X* PRtNTDtRECTORy »X08095200 

X* •••■-■^.••,.., *X08095?50 
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PURPosri thts PRocrnURr maNdLfs Thf pd. fx, uf, lc and ls 

MESSAGES, ALL MFSSAGES ARE FnRMS oF TmE PD MESSAGE 
EXCEPT FOR TFrTAJN DIFFERENCES, THF PD MESSAGE WILL 
LIST THE NIAt^FS OF THE DESIRED FIlES AS WELL AS 
CERTAIN PlFrES OF INFORMATION tF RFOUEStED, 

SYnTaXi the FORMAT OE ALL THE KEYIn MESSaGES WjTh THE 
EXCEPTION OF THE LF MESSAGE IS AS FnLLOWSl 

<MfSSAGF> <fILF SPFrIFfFR> <OPt I ON'L I ST> 

<MFSSAr,F> «l» PD / fX / LC / LS 

<FILf SPrCtFTFR> ll« <FILfNaMF> / <FtLFNAMF> "Z" 
<FTLfNaMf> 

<0PTI0N-LIST> Its <EMPTY> / <OPTIftN> / <0PTI0N> » 
<OPTIOn-LIST> 

<OPTiON> It; RfCS / LAST / DATf / SaVE / SIZE / 

CREATOR / Security / all 

<FILfNaMF> iI« TFROM 1 TO 7 CHaRaCTFrS OPTIONALLY 
FNcLOSrn tN QUOTpSl / w 

THE SYNTAX FOR THE lF MESSAGE iSl 

LF <USERID> <OPTION-LIST> 

SfMaNTicSI THF FX, LF» LCt ANo Ls MFSSAGrS ARf JUST 
MODIFIED FORMS OF THE PD MESSAGE! THE fX MESSAGE iS 
THE SAME AS A PD EXCEPT THAT ONLY THE FXpIRED FILES 
ARE LISTED, THF LF IS THE SAME AS A PD»/« EXCEPT 
THAT ONLY THF FILES BELONGING TO TwE SPECIFIED USFR 
ARE LISTED. TmE LC MESSAGE iS THE SAME AS A «PD 
<FILE SPECTFIFR> CREATOR", THE LS MESSAGE IS THE 
SAME AS "PD <FILE SpECIFIER> SeCUrI TY. CREATOR" . 

THE OPTIONS SPECIFY WHAT ADDITIONAL INFORMATION 
IS TO RF LISTED BESIDES THE DEFAULT INeORMATION, IF 
AN UNRECOGNIZABLE WORD IS ENCOUNTERED |N THE OPTION 
LIST* IT IS IGNORED. THE AVAILABLE OPTIONS AREI 

RECS - NUMBER OF RECORDS IN The EtLE. (SPECIAL LOGIC 
IS INCORPORATED To THE LIST THE CORRECT NUMBFR 
FOR BACKUP FILES). 

LAST - LAST ACCESS DATE, 

DATE ' CREATION DATE, 

SAVr " SAVE EArTOR, 

SIZE - SIZE OF The FILE IN SEGMENTS. 

CREATOR " PRIVILEGED USERCODE ASsOtAITeD WITH FILE. 



♦ J!09095300 
♦X08095350 
*J:08095400 

♦ 1508095050 
♦X08095500 
♦X08095550 
♦X08095600 
*i;08095650 
♦X08095700 
*X08095750 
♦X08095a00 
♦I08095850 
*i;08095900 
*X08095950 
♦X08096000 
*«08096050 
♦X08096100 

*X08096150 
*X08096200 
4.X08096250 
♦X08096300 
♦X08096350 
♦X08096400 
♦X08096450 
*1|08096500 
♦108096550 
♦X08096600 
♦X08096650 
♦X08096700 
♦X06096750 
♦K08096600 
♦X08096650 
♦X08096900 
♦X08096950 

♦ 1108097000 
♦X08097050 
♦X08097100 
♦«08097t50 
♦X08097200 
♦X08097250 
♦108097300 

♦«08097350 
♦X08097400 

♦X08097450 

♦ l!08097500 
♦f08097550 
♦X08097600 
♦X08097650 

♦f08097700 
♦X08097750 
♦X08097800 
♦X08097850 
♦X08097900 
♦X08097950 
♦X08098000 
♦X08098050 
♦108098100 
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%* 
%* 

%* 
%* 

X* 

%* 

PRoCED 
VaLu 

RPAI 
BEG!N 



(FOR Backup ftles 
And thf NAMf OF The 

IS ALSft LISTED^, 



THE LABEL OF TgE PRINT FILE 
PROGRAM CREATImG THE BACKUP 



sfcuRtty - ArrFSS pRivtIfcfs Of the 

LOCKED^ UNLOCKED* PUBLIC, PRtVaTE. 



ftUe» 

FREE, 



T.F.t 



UrE PRlNTDlRECTnRY(BUFF)| 
F RUFFf 

rUffi 



INTEGER 
T* 

J. 

CODE* 



% NORMftLUY ?0NtATNS OPtiON NUMrfRI 

X junk: 

PD. 



B 
P 1 - EX. 
« 2 - LC, 
" 3 - UF. 
» 4 - LS. 



REAL 

MFln» % MFID OF DrSIRED FILE OR -1 IF "■•♦, 

FID» % Ffn OF OERIRFD FILE OR -1 IF "«'♦. 

C. % AnnRFSS Or DISK HEADER. 

D. % mftd of Last file found by sfeknam, 

r» % FtD of LAST FILE FOUwD BY SEEKNAM! 

Nt % Work varIaBlE used by seeknam Tn save InFo. 

T» % normally (jSFn TO savf dest. inofX^ 

INFO» % PIT MASK rOR OPTIONS SELECTfo. 

LABFLRECi X ADDRESS OF LABEL RECORD FOR PBD ( Ir LC ) 

USErID. X USERID IF LF. 

X; X JUNK, 



aRRaY 

HpRf*]. X 
XlST[*1»X 



dfScrtptop To dtSk hfaderI 

SftME DAY WE MAY Ai.LOW EXCEPTION LIST, 



rOOLFaN 

PrDTOr, X TRUE TF SfLFCTFD 
FoUnDAFIlEI X TrUf IF WE 



FILE IS A PBD. 

LISTED OUT AT jIEaST nNE FIlE 



LaBfL 

HFFyNr 

OFFrNr 



deftnf 
prIm 

SiVF 

Last 

CRFA 
GUAR 



FX I T» DROPOUT* DUMMY, OPT IONS I 
NUMOPTS • 7*1 

Pn m rrODF • Oj*. 

EX m (CODE p 1 )#, 

LC • (CODE » 2i#t 

LF " CeOOE * 3^1, 

LS 9 (cOdf • 45#| 



aryuser 

FACTOR 

ACCFSSDATE 

TlONOATr 

DFlLFMFtn 



m HDRt?]#f 

■ HDRt3].t2ll03#» 

«• HDRt33.tl2|18]#» 

• HnRr3i.r30ii8]#, 

« H0Rr51#, 



X PRIV, USER CODE, 
X SAVE FACTOR. 

X Last access date. 

X cRfaTtOn date. 

X Mftd of guard file. 



Xl4 
X14 
X14 

X14 
Xift 

xia 

X14 
X14 
Xl4 
%IH 
XH 
X14 
X14 
Xl4 
Xi4 
X14 
X14 
X14 
X14 
X}4 
Xl4 
X14 
X14 
X14 
Xl4 
Xl4 
X14 
X14 
Xl4 
Xl4 

Xl4 
X14 
X14 
Xi4 
*14 
X14 
X14 
X14 
X14 
Xl4 
X14 
X14 
X14 
Xl4 
Xl4 
Xl4 
Xl4 
X14 



♦X08096150 

*X08098200 

♦X08098250 

*X08098300 

♦X08098350 

♦X08098400 

♦X08098450 

*X08098500 

»;«08098550 

-08098600 

-08098650 

•08098700 

-08098750 

-08098800 

-08098850 
-08098900 

-06098950 
•08099000 
-08099050 
-08099100 
-08099150 
-08099200 
-08099250 
-08099300 
-08099350 
•08099400 
-08099450 
•08099500 
-08099550 

-08099600 
-08099650 
-08099700 

•08099750 
•08099800 
•08099650 
-08099900 
-08099950 
-08100000 
-08100050 

•08100100 
•08100150 
•08100200 
•08100250 
•08100300 
•08100350 
"08100500 
•08100550 
•06100600 
-08100650 
•08100700 
•08100750 
-08100800 
•08100850 
•08100900 
-08100950 

-oeioiooo 

•08101050 
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GUAROFTUrFiD b HnRt6]#» % Fin OF RUARn FILE. X I at -08101 1 00 141 

COFPOINTFR • HDRr7]#» % EOF PoInTER! Xl4l -08101 150 D H 

SfGSPERROW « HDRr8]#t % SER. PER ROWt X141 -08101 200 D 14 

NOOfROWS k HDRr9].r43l51#» % NO. Or ROWS DECLARED. Xl4l -08101250 D 14 

HFADERADDRESS m HDR.rCF]#l X CORE AODRESs OF HEADER. Xl 41 -OSlOl 300 D 14 

%^*^*^f*:t,**in,*,ft$****** SUBROUTINES ♦♦♦♦♦^♦♦♦^.♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦0810l 350 14' 

SUBROUTINE GETREADYl Xl41 -08101 400 D 14 

% -.««-•«--. —.....• X141-08101450 D 14 

BFGIN X141-08101500 14: 

CODF l» BUFF.r9i6]| X141 -08101550 D 14 

BUFF «» fTl«BUFF)!f 151153 - \i X141 -08101600 D 14 

INFO IB & fLC OR LF OR LS)r42l47fn « LSr43|47tni Xl 41 -08lOl 650 D 14' 

EnD of GETRfADYI X141-08101700 D 14' 

* X141-08101750 D 14 
SUBROUTINF GETF ILESPEr I F T ERI Xl41 -08101 800 D 14: 

% «.«..•,-.. • — « — . — .,•,... X141-08101850 D 14 

BEGIN X141-08101900 D 14 

NAMEI0(MFID#T); X GET MFID (OR USERCODE IF "LF") Xl41-08l6l950 D 14 

IF LF THEN USERID !■ MFIDi X FIRST THINf, iS USERIO FOR LF. X141-08102000 D 14 

IF MfTO » "♦♦ " OR LF THfN X141 -08102050 D 14 

HftD I" - II X141-08102100 n 14 

NAMrtnrFtn.TJJ Xl4l-08l02l50 n 14 

IF FID ■ ••/ »t Then X get fid Xi41-0810??00 D 14 

BEGIN ^ X141-08182250 D 14 

NaMElD(FID»TH X141-08102300 14 

NAMFInfN.T)* « RFT NFXT TTFM. X141-08102350 D 14 

END X141-08102400 D 14 

Ei.SE X NO FID Specified Implies fid of •♦«•♦ Xi4i-08i»?450 d u 

BEGIN X141-08102500 D 14 

N !• FIDI X141-08102550 14 

Fin !■ -II X141-08102600 D 14 

ENDI, X141-08102650 D 14 

IF Fin.f6l6] • LEfTARROW or LF THEN % nO FID SPECIFIED XI 41 -08102700 D 14 

^10 l» • n Xi4l-08l6?750 D 14 

END OF GETFILESPECIFIEPI Xl 41-08102800 D 14 

* X141-08102850 D 14 
SUbROUTiNf PRbrESSOPTfONlTSTl X141-08102900 D 1* 

% ..-,-,•.., ................. X141-08102950 D 14 

BEGIN X141-08103000 D 14 

While N # •♦«- " PO X accumulate options X141-08103050 D 14 

BEr,lN X141-08103100 D 14 

rOR f |» -1 StfP 1 UNtiL (NuMOPTS - 2) 00. X141-08103150 D 14 

dummyh tf Pf, options, t»+»lod) « N Then x maTchfS an option word 08103200 D 14 

BEGIN X141-08103250 D 14 

INFO !• INFO OR TW0(I+ni X SpT BIT CORRESPONDING TO OPT08103300 D 14 

rO TO drOPOUTI X141-08103350 14 

FNn X141-08103400 D 14 

ELSE X CHECK FOR "AlL" Xl4t -08103450 D 14 

IE N » "AiL " THEN X SET ALL OpTlOw WORD BITS. Xl 41 -08103500 D 14 

INFO I" NOT 01 X141-08103550 D 14 

nROPOiiTi X141-08103600 D 14 

NftMrinfN.T)! t RFT NFXT OPTyON WORn! X141-08103650 r> 14 

TF N » •♦, •♦ THEN NAMEID(NiT)l X SKIP OVER COMMA, X141 •081»3700 14 

ENDI Xl4l-08ie3750 D 14 

GO TO EXITI Xl4l-08ld3800 D 14 

« , X141-08103850 D 14 

OPTtOnS tit ••RECS ", X OPTION ClNF0.r47in) Xl 4 1 -08103900 D 14 



"LAST •♦, X OPTION A CINF0,r«6ll 

"DATE ", I! OPTION 2 (INF0,r45il 

"SIZf ". % OPTION 3 CINf0.[44i1 

"SprURlT". IK OPTION 4 (lNrO,t43|l 

"CREATOR", % OPTION 5 MNF0,r42ll 

"SAVE "i % OPTION f> (iNFO.rftlll 
FXiTt 

FND Or procfssoptiOnLirti 
subrouttnf getseti 
bfgin 

if FX or info # THFN % WF WILL NEFn THE HORI 
HDR l» TOOUF & rPACEOO) fCTCll 
END OF GETSfTI 

BOOLEAN SUBROUTINE WEfiOTAFILEl 

BrGTN 

SFEKNAMfMFTD.FIO.r»D.E»N,XLST)l % FIND A FILE! 
WeGoTaFILE «- C It 01 « C iS address ftF DISK HEADER, 

End of wegotafilei 
roolfaN surROutinf wfwantthisfiLfi 

BfRtN 

PBDTOr, U fro EQV "PPD ") m NOT OR fn EQv "PUQ ") 

« NOT 0)> 
IF HEADERADDRFSS # THEN % WE NEED THE HEADER. 
DlSKWAlTf-HFAnFRADDRFSS,30,C)> X RFAD HEADER, 
TF LF THEN % CHECK TO SEE IF WE WANT THtS FILr, 

WEWAnTThiSFILE I* PRIMARYUSER « USERID 
ELSE 

IF EX THEN 
BFRIN 

STRFAMf Al»CALCULATEPURr,FfSAVEFACTOR),X|PrX]); 
BEGIN 

SI l» LftC Al DS i» 8 OCTI 

END I 
WFWaNTThISFtLf I« X > LaSTACCESSDaTtI X TRUE IF FTLF 
FND 
ELSe 

WEWANTTHISFILE !• TrUEI 
END OF WEWANTTHISFILE? 

SURROuTtNp PUTTNFTLrN^Mri 

BEGIN 

STREAM{AI«0 I D» r» flUFFJi % SET UP FILf NAME, 
BFCTN 

St «« LOc Dl 
OS l« LIT •♦ «♦! 

7 ( SI I* SI ♦ II OS !■ 7 CHRI DS tm LIT "/")! 

DI I" 01 - ll 

OS t» 2 LIT " "I X NEED 2 SPACES TO aLLOw FOR ARROW, 

A !• nil 

END) 
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T im Pt % SAVF OFF DFST, INOfX, 
END OF PUTINFILFNAMfJ 

SUBROUTfNr DORrCSI 



bfgin 

STREAM(AI»IF PBDTnG THFN FOFPOl NTERkS FI.Sf EOFPOINTER + 1 tJ)t 

RFGfN 

DS »« 9 Lit "RFCORdSI "I 

St tm l.OC A; 

nS l» 8 DECi % CONVERT NUMBER OF RECORDS TO DEC. 

A !• P»TI % SAVF OFF HT BFFORF ZERO «;UPPRFrSI NG, 

Dt J* ni - 8J 

OS tm 7 FTLLI 

endi 
t |p pi « save destination address. 

FND OF nORFPSI 
SUBROUTINE DODATfORLAST » 

BEGIN 

STRFAM(X|»tX]); 
BFr.TN 

St u X) 

DS I« 8 DECl t CONVERT OaTE Tq DECImAi,. 
ENDl 
G!MEDATE(tXl.[CF].-Xu % CONVERT JULUN DaTE TO 6 DIGITS. 
STREAMCAIwHwI) I Xf T)l 
Rrr f N 
A ( ns i» 10 LIT "Accrssrof "i Jump Out to lui 
OS l« 9 LtT "rRFATPD* "I 
Ul » 

St »« LOC XI 

St i» Si ♦ ?J 

3 f DS Is ? ChRJ OS U LIT ••/•♦)l 

01 I* Dl - \l % ERASE THE EXTRA SLASH. 

A •■ Oil X Save dest. index, 

END I 
T l« PI X SAVE DESTINATION ADDRESS. 
END OF DOOATEORLASTi 

SUBROUTINE DOSIZFI 

BrGlN 

NT2 U NOOfROWSI % NO. OF ROWS DECLARFDI 

NTl Is 01 % NUMBER OF ROWS PROCESSED^ 

FOR J l» 1 STEP 1 UNTIL NT? DO % CHECK TO SEE IF ROW EXISTS, 

IF HDRtJ+93 * Then nTi I« NTi ♦ II X RUMP Up COUNT, 
STREaM(AI»NT1xSE6<;PFrR0W I T^i 
REftTN 

nS l» lO LIT "SfrMfNTSI "I 
Sf l« LOC AI 
OS |» 8 OECI 

A i» nil 

DT «• ni ' 8| 

DS l« 7 FTLLI 
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•08186800 
•08106850 
•08106900 

•08106950 
•08107000 
•08107050 
•08107100 
•08107150 
•08107200 
•08107250 
•08107300 
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FGIN TF 
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ENDI 
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IF 
IF 
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143*7035 

nTh 

CPUIO* 
MfCPUl 

MrcPui 
MfrPui 
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VEARRAY0FSCf?0,L06AREAV)Ji; 
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W,tcFJ<Pl777 THEN % SOME 
JARrPlM!X»6].f lll]*ll % 
FILFMESS(-''SEE TSS"*" PA 



If ATT[AlTrO]],t8tl 

BrfitN 

Timll 

WHILE AiTrn.rB 

FOR Jl«AlTro] S 
AlT[j4ni»A 
ELSE II«AIT[0]* 
f O3t«*P(0lJP) + 1 

r t3 »»"f ui r8i38i 

■ WORKERSTA 



XLEFT AT 12626500 



EN XSP 
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ACE F 
90tST 



ORWARO 
ZE]JX 
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THING 
Sn BfT 
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VERY 



OPTION 
WRONG 



Of 0»o»0»602) 
03 NfO 1 TwEN 



END 
AfT 
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YSTa 
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anksi 

INF.O 
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THEM 
PtNftT 
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% make sur 
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F3)I 
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XZFRO OUT CPUIO 
LlNF.r33l73 * AND PlMlX # CANn 
LFARALLTANKSI 
I % RE-lNTTtALlZE FOR CORf SEARr 

Cl earalltanksj 



YINX TH 
H 



BGETSPACE 
GETsPACEf 
0+2l*VFCT 

0+31*VFCT 
0+45*|| 
0+5l*(fS[ 
0*6l»((St 
0*7l*Sr33 
T(VfCTOR 
IF NOT 



(5»MAINTBUFFAREAV+«4»0>+?I 

io.o»n+2i 

ORtOJj 
0Rti3f 



n*NEXTMOM) + 
23»VECT0RI43 
*(LC[f 3-SCCI 
INX O. 

( fMfCPUlO+3 

( (MtCPUlO 

(MtCpUlO 

THEN (CLINK OR C 



XJ 

XJ 

XJ 

303DTV 

♦tOTlM 

3)xChU 

3 EQV 
♦ 23 FQ 
♦23 Ffl 
ANDYmI 



OB Pp 

OB Sll 

08 Mt 
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fC13i 
NKZI7 

"DISK 
V "PR 

V "Ln 

SS) A 



EFIX 
FFIX 
X INDEX 
XCPU T 
♦30)DIV 
E+CHUNK 

•»)i»N 
NPBT «) 

CNTRL") 
ND EOJM 



X156- 
X15A- 
X156- 
X162- 
X162- 
X162- 
1155- 
X509"GRK 
X509-GRK 
X140- 
X140- 
X155- 
X72a- 
X602- 
X602- 
XKLUGE MSGiDS 
X602- 
X102- 
X102- 
X102- 
X102- 

i xio?- 

XlO?- 
X102' 
X102' 
X102- 
X102- 
X158- 
X504-GRK 
X151» 
X15I- 
X151- 
X151" 
X151- 
X151- 
X151- 
Xi5l" 
X151* 
1504-GRK 
fN X151- 
X151- 
XlSl" 
«151- 
X151- 
X155- 
X504-6RK 
1504-GRK 
X504-6RK 
X504-GRK 
IMF X504-6RK 
60lX504'GRK 
ZIZFI X504 
X509-GRK 
OT ANDX509 
wNOT 0RK509 
•NOT 0))X509 
FSS X509-GRK 



12573000 
12573500 
12574000 
12635500 
12638000 
12650500 
12672500 
12704000 
12704100 
12726500 
12788500 
1?848500 
12860100 
14015200 
14015210 
14015220 
14015240 
14218071 

14218072 
14218074 
14218076 
14218078 
14218080 
Ifl2l8082 
14218084 
14218086 
14218088 
14344100 
14351306 
14351440 
14351445 
14351450 
14351455 
14351460 
14351465 
14351470 
14351475 
14351480 
14355060 
14360510 
143*0520 
14360530 
14367021 
1436702? 
14411820 
14413020 
14413030 
14413040 
14413050 
14413060 
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14413080 
14430000 
14430002 
14430004 
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14430008 
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ENn s 
SPOUT 

ir UN 

TU6ETSPAC 
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wrnLOOKfKTR 
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Burrt KTR. 
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DI*0I-5l nS*4FlLLI 



T0«UN1TN0,64)| 
THFN 

ontrol 
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rfatyp 
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CARDAREAV+6flpO)4fllX 
) OR (TYpEi«i9))l i:DS;e»SD!P9fCLw 
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ENDI 
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ENDl 
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8710270 
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TWXOUTf T»lO»0«ircTFUlr2U7ll]fR6)j XI 49-1 9559200 

IPCrRRi TERMINATE (PIMTX)I Xl45"l9575000 

TERMINALMES5AGE (96)1 X145-19575100 

S la tMrTYPFDSPfiCFOl.SHFETAREAV)]! « 3o[ 8 I .^fl 1 10] I X Xl 55-20026600 

HnR Ik r,FTSPACrf30.nISKHEADFRAREAVf !)♦?) X155-20028700 

S SET OMIT « PACKETS XI 63-20034060 

FLSE F0RGETSPACF(HDR)I XI 63-20034070 

$ POP OMIT X163-20034080 

FpB tB TYpEDSPACEtSFGOfS] InX \, FPBAREAVjl X155-20049000 

FBt»GETSPACE(SE60[7JirrF3xETRUNG»rPBAREAV, n+?I X 155-20049800 

LBL|«ARRAYDESr(30»LBLF0NAREAV)>X X 1 55-20059 100 

LBLt*ARRAYDFSr(30iLpUEQNAREAV)|X X 155-20089800 

SPOUTFR(T»UNlTNO, X509-GRK 20104200 

TF NOT ( (JARrMlXtlJ PQV ♦'DlSK •♦)«nOT ANn X509-GRK 20104300 

( (JARfMIX,01 EOV "PRnPrT "i-NOT OR X509-GRK 20104310 

fJARfMlX.O] EQV '♦LOrNTRL'')»NOT 0) ) X509-GRK 20104320 

Then rcftior Sf0i).r2»i3 or rANOYMrss) x509-6Rk 20104330 

AND BOJMESS AND I OR BOJK) ELSE -BOJKM X509-GRK 20104340 

SEG0fwAI^RAYDESCr30.SEGZER0AREAV)IX X 155-201 10400 

SlNFOtMlXj.tCn I* (STaCKLOC !• X155-20116100 

GETSpACE(SEGn[3] INX StPll InX a4» STACKpRTAREAV, D) ♦ 21 20116200 

WaITSTORE(MIX)| sTOREOYCMIX.oJI X202-20119300 

ST0RFDY(MIXf 1)| X202-20120300 

TRPr4 3lwrMrTI«r,rTSPACFf SEG0rn.tCF]#SF6nlCT/iRrAVtl)*2]]| XI 55-20124900 

STRFAMfni«DALOCROWrMTXl«»SAVEARRAYDESC('DA|,OcSlZFfDALOCROWAREAV))IX 20127 300 

* VOID X155-20127400 

STREAM(D l» UVSpACF f» TYPEDSPACE(UVStZf f UVrOWAREAV ) ) I X155-201 56800 

bfUow Is (Sr?3.r8iioi«5) or itsallbatchi X151-20163200 

MrHDR-21 l» (♦PfDUP)) « JARROWAREAV AREATYPfFI % Xl55''201d9700 

STREAMfQI«FSR0WrMlXil«SAVEARRAYDESC(4.FSAREAV))|X X 155-201 836 1 

TRPf 33l«rMtGFTSpACE(1 »rPBAREAV»n*93] ELSE X Xi55-20187400 

FORM * 75#»X SWITCH DfPCC )''FORm''-'*SPEC 1 AL** X846-20240000 

UtNfS66 » 77#. X 66 LiNes PfR PAGt X724-20240020 

RFRiN LftBFU TRYAGAINi X 1 72-20289030 

MEADERr2]l»HEADERr«;3liMCPI Xl?9-20289l 1 3 

HEA0ERt4]|w0*(Pln0nt?l3flll03«SYSN0r4l46l2ll Xl 07-202891 15 

SI|»CAR0I DSi«9 WDSl Xl29-20289240 

MtBUF+873l»McP| XI 29-20289252 

* , X172-20289330 
XI?»6I MrBUF + l73lpOl Xi72-20289335 

STREAMfCARDLOOl X890-20374401 

BEGIN SI*CAR0U0C| X890-2037440? 

2(36(IF SC»">'' THEN X890-20374403 

RFr.TN rARDLOc*SllDI*CARDLOrJDS#. LIT "b" FNDI X890-20374404 

IF scs^i" Then X890-20374405 

BEftIN CARDlOC*SIIDI*CARD|.OCIOS; lit «"♦♦' ENDI X890-20374406 

SUSl*ln) X890-20374407 

FNdi ^ X890-20374408 

ftF KOUNt • ••b" then EOUAt rLSr X THtS IS AS IN SYMBOL 20380000 

LOUMMY, X846-20392870 

LLINES66» X X724-20392880 

LRANDoM» X603-20392890 

SWITCH O'-LFORM* X603-2o394000 

LDUMMY» X846-20394070 

LLiNfS66, X724-20394080 

LRANnOM, X603-20394090 

LNO»LDISKiLTaPe»LPUNcH»LPRINT»LPAPfR» X60 3-20 394900 
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LDUMMYl TPNO*lll % ** FORM SPO" - DUMMY FILF X846-20451900 

TPN0..12J GO TO DsKCHECKI X "DISK" MFANS DISK SERIAL X603-20457000 

BfGTN TPN0*?1I if TYPFbCOPYN Then BERIN X603-2046!300 

TPN0*?2I GO I Copy end Ei.SF X60^-2046niP 

IF SCAN#BACK THEN GO ERRORl X603-20461 320 

ENDI X603'20461330 

IF TYPE»COPYN THFW BEGIN TPN0*?2l GO LCOPY ENn ELSE X603-20461810 

LLINES661 % X724-20465050 

EQNtOl * "FULLPfiF" I XSET UP MfID FOR FULL PaGF X724-20465 100 

BFGIN TPN0*4| IF TYPF»C0PYN THEN BEGIN X603-20470000 

TPN0*l5l GO TO LCOPY END ELSE X603-204701 00 

TF SCAN^BACK ThFN GO ERRORl «603-20470l 10 

EnDI X603-20470120 

IF TYpEi»COPYN THEm BEGIN TPN0*16I GO LCoPY END ELSE X603-204751 00 

LRAnDOMj TPNO*10| GO To DSKCHECKi X603-20481900 

ELSE IF TYPE«CnRFV THEN X512-20504500 

BFOIN X[2ol * TPNO DIV 64| X5l2-20505000 

no UNTIL MOD * SrAN)*MAXV OR IOD«PERtO) X5l2"20507000 

IF I0D«MAXV then P([Xf20]]tI0R5 ELSE ftO TO DOWN! X512-205071 00 

END X512-20507200 

ELSE IF TYPE>PRI0R AND TYPE<SAVEV THfN !i;5l2-20507300 

Xri8+TYPF-PRl0R3*TPN0 ELSE GO TO fRRORI X512-20507400 

Real FRl»ER?fER3l LABEL ER5YSI Il64-205in5? 

ERllw")* "IX Xl64-205tU75 

OR SYSTEMFILECCMMrO]»CMMtn) THENX Xl 64-2051 1 188 

BEGIN FRSYSl EPl I -"SYSTEM " » ER2 I ""F ILE )♦ " i GO ERROR END» Xl64*205l 1 190 

BFGIN FRllw^SAME F I"! ER2t •"LE )* ** I GO ERROR END Xl64-205l 1 303 

IF TYPF'USFV A^D Mt0PTN + 23<0 THEN* I164-205U312 

BFGIN FRlt«''SErURTT''IER2l»''Y Fl LE )''IfR3« ••••. "I 60 ERR ENDI20511313 

BEGIN FR1I««INVALID"IER2I«" USeR)«."IX X164-205U335 

FRRi FORGETSPaCE(0PTN)|X Xl64'»205l 1 340 

ENn ELSE IF 0PTN»2 THEN GO ERSYSX 9 LINE 2o511190 Xl64-205n363 

FLSf if 0PTn«1 Then begin ERIU^IN USE)"IFR2I«"* " end 20511364 

elsf if optnpo Then begin erUb^not on "IeR2U"disk)* " endi205ii365 

ERROR! X164-20511366 

STRCAMf AI»rCMMr01]fER«»[ERn»B«»(0PTNl»SPArEf 10)))| Xl 64-2051 1 370 

nSl«?5 LtT » SECURITY MAINT IGNORED fl SI|«ER|X Xl64-2051 1 400 

3(SIl"SUlT nSl»7 CHRil* X164-20511405 

SVOini Xi21-20566800 

IP T GfQ COPyN and T LfQ load THEN X543-20566807 

OPTNI.CNI PR0r,r?91l«0| Xl2i -20566817 

IF T 6F0 COPYN AND T LFO LOAD THEN X543-2056682? 

BFGTN IF XLST«0 ThEN XLST |«rMf SPACEf XLSTSZ « «30 ) 1 3 430[8 t 38 t lO] | X 1 70-20567005 

Tl!;t46ll]#.H0LD3«-fCN»EQUAL); X543-205699 30 

IF H0LD3 THEN pROGt CNT ] l«-i ELSE X543-20569935 

IF CN GEO lOENT THEN PROGf CNT] 1 ■ACCUMt 1 EI.SE GO POWIFI X543-20569940 

Tl .r47H 3*H0L0i»((CN*SCAN)«EQUAU)l X543-20569960 

IF H0L03 THEN pR06CCNT+l 3 i»-l ELSE X543-20569965 

F0R6FTSPArF(XLST)l XLSTl«0l X543-20570070 

TF fCN*SCAN)«EQUAL THEN IF Tl.r46|13 ThEN X543-205701 30 

ELSE IF CN GEO TDFNT ThEN tF Tl,t46«i3 ThEn gO POWtE X543-20570150 

IF f CN*SCAN)»EoUAI, Then if Ti then X543-20570190 

ELSE IF CN 6EQ IDENT THEN IF Tl THEN SO POWIE X543-2057021 

STREAMf AHBT0H|.D.Bl"T0HLD.[42l63-i»Ci*T0HLn»t42l6l#0» «! 23-20571700 

Dl*CCMMt?733)| X123-20571702 

BEGIN X123-20571710 

SH-LOC Al SKIP SBl X123-20571720 
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IF SB THEN X123-20571730 

REGIN X123-20571740 

SKiP 39 SRI X123-20571750 

TF SB TwFN nSl«8 LtT^OFAST •♦ X 123-2057 1 760 

FLSr «123-20571770 

BEGIN X123-20571780 

SKIP SB» X123-2057178? 

IF Sr then DSl«fl LIT^OSLOW " Xl23*20571790 

ELSE X123-20571800 

BfGIN «123»20571810 

CfSH»L0C Bl X123-20571820 

0RI»6 LIT"0EU # "I DSI«P DECl X123-20571830 

Jump out to t)l X123-20571840 

nRI»8 LIT-ODISK "i X123-20571842 

Ll FNn X123-20571850 

FNd X123-20571860 

END X123-20571870 

ELSE X123-20571880 

BEGIN X123-20571890 

SKIP 5 SBt X123-20571900 

nSl«LlT'»0'»» nSli«7 THR; X123-20571910 

FND) X123-20571920 

ENDI X123-20571930 

IF XLST NEQ THEN BEGIN FORGETSPaCE fXLST ) i XLSTibQI ENDI X5a3-20573350 

IF T GFQ^64 THEN X508-20574917 

T»niRFrT0RYSFARCHfCMMi:0]»rMMrn«(PrUNlTN0.nUP)«25 OR 20577826 

P(XCw)«30)rll47ill,4)l rNDl X508-20577827 

IF T GEO 64 Then X508-20577826 

CCCOMPILF*0> X5lO-205e4340 

CCC0MPILE«.0I % INITIALIZE X688-20584390 

CCUNIT*Ol X INITIALIZE X688-205f 0030 

BIGIN CARn.r33ll5] !■ TYPEDSPaCF(13»CoNTR0LCARDAREaV)+2| 20600950 

IF LOGLINf m THFN LOfiLlNF ♦ - UNITNOi X109-20602502 

IF PKTONLY Then X106-20602515 

PPcPROcfSSIpO)* X169-20602855 

PROCVAli«0) X126*20602860 

CONTROLAJ if (T < FILEV OR T > COBOL) AND ACCUMfO] # CMPLR THEN X527-20604300 

IF T GEO UNLOrKV AND T LFO RESETV ThEN 60 TO FINIS X527-20604350 

USfRSi IF(TuScaN)#fOUAL Then go INCScI X131"20605700 

IF(T|»SCAN)»PERI0 THEN 60 iNCSCI Xl 31 -20605702 

P(DTRECTftRYSEARCH(NABSfCMMrO]>»IF CMMro3<0 TwEN '♦DISk " ELSE 20606865 

IF UnITN0»32 THEw C IDroWCUnI TN0»32] , [ 3 i 5] I «0 ELSEX Xl69-20606900 

TF I)NitN0»23 THFN RfADFRa . CfF 1 I «0 FLSFX X 169»2060691 

TF UntTN0«24 ThFW RFADFRR. tFFl I»0 I X X169-20606920 

IF (T>pACKET) AND (TjSRESETV) AnD (T^RUnV) THEN X527-2060807fl 

IF ZIPMIX NEQ n THEN Xi3fl-206081 12 

IF (TlsPSFUnOMtXtZIPMlXJ) GFQ 32 THEN X138-206081 14 

PACKFTFRRrT*32]»i«TRUE) Xl 38-206d8l 1 6 

IF fTl»SCAN) m ENDFI THEn Xl 27'206»8740 

GO To PACKpl Xi?7"20608760 

* VOInT Xl27'20608800 

$ SET OMIT m NOT(PACKEtS) X106-20609425 

IF PSEUDOrUNlTNO-321 ■ THEN X106-20609430 

PRlNTTHEC0VFRfCARDLOC»UNlTNO»PSOURCF)l X106-20609435 

S POP OMIT X106-20609440 

BOOLEAN FT»N| DFFINF FHrFHl )»M[ T+FHlJ l| X RESET FILE A/B X815"20704100 

SUBROUTINE CLEARTHEF I LEi X CLEAR AN IN-USf FtLf X8l5-207i4200 
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D 521 
D 521 
D 815 



^^^'^^ ,,. « * . « X815-20704P10 n 815 

rHr43.rOH©63*.0) % fXCLUSIVf X8l5-2070a220 D 815 

rHr«].ri6i90]*oi % opfn count 2 X8i5-?0704?:»o d 815 

nisKWAiT{T,rcn»30»T,rrr])i % nx tt X815-20704250 d 815 

FlLEH0LD(CMMt?].CMMr3J»0,T,0)| X WaKE Op WATTING PROCFSSES X815-20704260 815 

LBMESS(CMMt23»rMM[^],ll»26»0»SP0UTUNlT»lU X815-20704270 n 815 

ENn CLrARTHFElLft X8l 5-20704280 n 815 

rCSFT*0| X510-20711100 n 510 

^^ ^t^*E«P^2T^2^J . X615-20714000 D 815 

IF NOT fFT*FXToG*fCN*FTLEV)) THEN GO To CCrRRI X815-2071 4500 D 815 

RFGIN T*?l GO TO Lll FNDI X521 -20730000 D 521 

. ., , BEfiTN FORGfTSPACECT)! T*1I GO SK?P| ENnI X521 -20739000 D 52i 

* l^^^l X521-20739100 

! ^9!2; X521-20739200 

* ^°*"' X815-20768000 _ „_ 
. c. .u,l^'^ l^^i ^^J^ ^"^"^ CLEARTHEF1L.F ELSf BEfilN X815-20769000 D 815 
S SET OMIT • ShaRFHISK X521 -207691 00 D 521 

"^^°^'^''^''''^^°'''^' X521-20769200 n 521 

S POP OMIT X521-20769300 D 521 

LBMESSrCMMr?].rMMr31,-ClUT0r,).4l.0»SP0UTUN!T»l )l X521 -20769400 D 52l 

^.„ ^NDI X521-20769500 D 52l 

f??r'^J?r?S^'^^' X521-20769600 D 52l 

EL5>E BEGIN X521 -20771 000 D 521 

t SET OMIT M ShAREDISk X521 -20771 Ol D 52l 

UNLOCKniRECTORYj X521 -20771020 D 521 

* POP OMI^ ^. X521-20771030 521 

SVOfnT 907/^.^01 ^ X521-20772050 52l 

SVOIDT 20772301 X521 -20772100 D 521 

FTFLO MaYrFWORKfDON • t7ll]| X153-21015100 153 

Label. STARTi X153-21015200 153 

X l« ?104| X ThtS tS The code Wr will pass to «153-21015400 D 153 

X GETSPACE The first TIMf. it requests Xl53-2l0i5500 D 153 

% OVERLAY MEMORY FoR THE MCP AND THAT X153-21 015600 D 153 

% WE WANT TO BE RETURNED TO ON A NO Xl53-2l0l5700 D 153 

CTADT. * ^^^* X153-21015800 153 

*'*^'' X153-21015900 153 

IF NOT MtRJ.MAYBEWORKEDON THFN % WAIT TILL OTHER GUY IS D021016000 D 153 

SLFEP(tMtS]3»0 K TRUE CMAYrEWORKfDONJ ) I X 153-21017000 153 

BtC^^^ X153-21018100 D 153 

Z «• Y,r8ll0]| % SIZE OF PROCEDURE IN WORDS X153-2101 8200 153 

MtSl.MAYBFWORKEnON tw FaLSfI X153-21 018300 D 153 

I , , X153-21018400 n 153 

X NOW WE WILL ATTEMPT To GET SPACf FOR THlS MCP PROCt 2l0i8500 D 153 

X IF WE FAIL WE WILL WAIT FoR A SfCONO AND THEN TRY 2l0l8600 D 153 

I AGAIN, THIS ENSURES ThaT IF WE GET DS-ED WHILE X 153-21018700 D 153 

X SLCfrpiNG WAITING FOR MEMORY WE WiLL NOT LEAVE THE 21018800 153 

X TOGftLF LOcKfD UP FOR THIS PfiOCEnURF. X 153-21018900 153 

* • .^B ^ X153-21019000 n 153 

TF fT««r,FTSPACFf Z»65,X)*2) • 2 TuEN X NO MfM X153-21 0l9l 00 153 

BEGIN Xl53«2l Ol 9200 D 15') 

MtSJ.MAYBEWoRKEDON t« TrUEI Xi53-2l0l9300 D 153 

X,t46lU !• TRUEI X OONT PUT OUT MESSAGE X153-21019400 D 153 

SLFFP([rLOrK],NOT rLOrKjj % WAIT A SFcONo X153-21019500 153 

fiO TO STARTI Xl53-2l0l9600 D 153 

^^^l Xl53-2l0?0000 153 

MCS] im {♦PfDUPn t T tCTC] « TRUE tMAYBFWORKEDON 3 | 21024000 D 153 



STORPDY(0»0)f X202-21032000 D 202 

STORFDY(0,n» 1202-21093000 D 202 

NT1*{SLNtMiX3x:?0 ♦ COUNT[M IX ]xi4 • Nt1)x8 ♦ 2081 X991-21 1 1 1540 D 99l 

IF PRTROWrMTX3,r>SF3»3 THEN PRTROWrM I X ] . [PSr ]»0; XUcSC KLUDGE 21212010 D 99i 

n«GETSPACE(30,JARR0WAREAVSMlXrCTF].1 )*2I X155-21 304000 n 155 

tl«GETSPACE(UVSlZF»UVR0WAREAV&M!XrCTF]»l) + !)l X155-21 308000 D 155 

TiMELIMiTmAX «■ 3600 x S + 18000 I S;0| XftOfGRK 22013130 D 40l 

SHFAT l»[MrFlBTYPEDSpACEC^1f SHEETAREAV*64)1 J & 30t fi I 3P « 103 1 X 22069050 n 155 

SFGO »w TYpFDSgACF(30»SEGZER0AREAV+6fl5|X Xl5S-2?069100 D 155 

SHEATt243|»MCPt X129-22069212 D 129 

no UNTIL (T1*WAITI0(aREA INX P34r>0000l2»P75»U))#0| 22112000 n 697 

IF Ti.t43i2lj'0 THEN T1*WA I T I0(P4900000000»5»U ) I X697-221 1 2100 D 697 

$ VOinT X992-22199000 D 992 

PAPFRi LABFLTArLFTUJ ♦ MULTI TABUErU3 ♦ '♦PRa "l X992-22201200 D 992 

RnrTARLFlll3 ♦ PIOOOOOOOOI % RfFL NR. « 1 1992-22201400 n 992 

GO TO COMMON) X992-222ei600 n 992 

IF fMiX !• LiNk'aRFAMIXF) • THEN GO TO MfPj X155-22297000 155 

IF PfLTNK.AREATYpEF»DUp) ■ CODEAReAV OR P(XCh) ■ X155-22303000 D 155 

TYpE13INTArEAV THEn Go To C0DE» X155-22303100 D 155 

IF LiNK.AREATYpEF » TYpEl 3 INTAREAV ThEn X TYpE 13 INTRINSIC 22356100 D 155 

IF P(LlNK,AREATYPFFtDUp) b TYPE7I NTARE a V Or P(XCH) « X155-22386000 D 155 

TYPF13INTAPFAV THEN GO TO iNTRINRlcl X155-22386050 D 155 

IF LINK.AREATYPEF • DATAAREAV THEN X OvERLaYABLE McP nATA X155-223861 00 D 155 

SVOIDT X152-23399000 D 152 

UPTIMEOUT(MlX)j X147-24035300 D 147 

DOwNTIMfOuT(Mix)I X147-24096800 D 147 

% X153-24394100 n 153 

X FTFLns OF savff Parameter xi53-24304iio d i53 

X X153-243S4120 D 153 

FIELD X153-24304130 D 153 

X NEEDOLAY • 09»39 X ThIS FIELO IS NON ZERO IF 24304140 D 153 

X RfQUEiTOR WaNtS OLaY SPArE24304150 153 

TYPFNOMrMANDRFTURN 9 45l0l X iF S/iVFF, [45 « 023 « 3 ThfN24304170 n 153 

.JUSTPETIIRN ■ 46101 X GETSpACE WILL TYPE OK MEM24304180 D 153 

tGETFROMFRONT • 47l0l X IF SuCESSFULLt « 153-24304190 D 153 

I X153-24304200 D 153 

STRFAMfXf«.{MrSS#0 OR SavFf! 1 45 I 2l»3) t Mix. SI ZF«Xl53-24305700 D 153 

MFSSI«MFSSI»«6ETARFAr0))) X153-24305750 D 153 

ArAtNI WAlTSTOREfMlX)! STOREDV (Ml X, ) I X209-24309000 D ?0? 

SToREDY(MTX,OI X202-24313000 D 202 

IF 5AVFF.JUSTRETURN THEN P(o»RTn)) Xl53"243l500n D 153 

IF SAVFF, TYPENOMEMaNDRFTUrN THEN P(0»RTN)i X153-24317000 R 153 

MrRFTSPACrl«Tl»«(*PCnuP))«TYPEtARFATYPFF3&MiXrARFAMlXF]l 24400000 D 155 

IF MESSjtO OR SAVEF,[45I2J « 3 ThENI TEl.LSPOl X i53-2440l000 D 153 

RFAL BVDiUBLKSZtSPBj Xi 19-2799041 D 119 

BCLl"tMtCTj»SpACE(41)33«4lt8l38ll03l Xl 19-27993900 D 119 

IF HDRTYPf NfO 3 X119-27994200 n 119 

TmfN for NTllilS STfP 1 UNTIL NT2 DO RCUt NTl-53 I "Hf NTH XI 19-27994210 D 119 

ELSE FOR NTlls20 STEP 1 UNTiL NT?+5 DO X119-27994220 D 119 

BCLrNTi«i03»«»HrNTnJ X119-27994230 D 119 

UBlKSZ|.nT2I X119-27995310 D 119 

IF CNT4l«Ht23,r5i33 m 2) THEN % DECIMAL C 4-B IT )Xl 19-27995600 D 119 

BfLr0]|«(SPB|s»NT2 DtV 30 ♦ (NT2 MOD 30 NEQ 0))& % SEGMTS/BLOCK Xl 19-27996300 D 119 

NTltll34U43l X WORDS/RECORD 27996505 119 

IF HORTYPE 6F0 2 THfN % FIGURE OUT EOF USfNfi B67OO FORMULA Xl 19-2799651 D 119 

BEGIN X119-27996515 D 119 

STREAM{BI»0 I W»«Hri4]5l Xl 19-27996520 D 119 
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rfctn si I 
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FNOI 
VOlsPI % 

Ht?l,t8l 

HEN IF (N 
THEN 
FLSf 



USE BEGIN 

?«B((Htl« 

♦f fBVn 
1 IbTF nt? 
9HBMT1 +(H 

ni 

Lt73|»IF 



«LOC WJ DTI* LOr, B> Di«»Di + «; sktP a dbi 

TF SB TmEN DSl«SET ELSE DS»sRfSfTI SKiP 1 SB)I 

BITS OF VALID DATA IN LAST SEfiMT 

T2i«Ht21.r5l33)*? 
BEGIN NTlt«12l NT4|»3l ENn 
IF NT2»4 
THEN BEGIN NTil«i6l NT4«s7; fNd 
ELSE BEGIN NTjlsBJ NT4JB5I FNn 
NTlfsli NT4I»!47) FNOI 
],r20l28] MOD SPB)xNTlx30) 
+ NT4) OlV (48 OIV NT1))I 

Lss UBiKS? Then nt? else ublkSzi 

ri43,t2ni?f»l DIV SpB)xNT3xfNT/il«Ht3i, [321163)1 



HDRTYPF GFO 2 THEN (NT2*NT4-1i nfV NT4 " 1 
ELSE HlAJl 
DTt*LOr Al SfliLOr HI SKiP 1 DBI nSlaSFTI 

GIN TMP»«f,ETSPACF(FPBPTR + ETRLNG»FPBAREAV,l)+9lll 
rMtTYPE0SPACE(42,DlSKHEADERAREAV)]] R lOf 8 » 3R I 103 1 X 

MrFAINFO + JJ,rpilH«Ol % DONT remove If UNLOAD 
rFA+1 ItMrFA])! % SAVE NAME FOR UNLOAD 
IbPI MfFAII-NTll MrFA*l]l»PfXCH)l % REPLACE NAMES 
P(P&RCWtCTC]tO»RnSfO»XCH»P&PrCTF]»STF)i 
ri3l1] FILE Tn BE ADDED (NOT ON DISK) 

MUSTADfi » nA,fl3lll#» 
FASZ 6TR THEN Ll BRARYHfLPC 5) ELSE IlM «0U I «( FPBPTR I »0)-l 
26265801 

CHEfiK IF FTLE TS TO BE ADDED 
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XI 



TF 
IF 
IF 
IF 

TH 



IF 
IF 
IF 

tmp 

FOR 

IF 

I 



FL 
Ml 
IF 

OU GEO 
lU GEO 
OU r,FQ 
l»FASZ 
Jl«0 
(DAt» 
F UNLO 
REGTN 



ADDV TH 
NOT MUS 
OU m t8 
DUFCTo 
EN BEGI 
LrMf 

TF n 

GO N 
END 

SE BEGI 

HHdftlrS 

MUSTADD 

T 

THEN 

THEN 

THfN 

DTV 2 

STEP ] 

MtfAlNF 

AD THEN 

MFTnliM 

P(DlREC 

IF DSED 



EN 

TADn THEN 

THFNX TAPE TO DISK 
RYSfARCH(-MF1D»FID»5) NEQ ox ALREADY ON DISK 
N 

SS(«RS(MFID)»FTn»"67»68»TfNi)CIU]»SP0UTUNlT»Ll 
Sfd TmfN aborti 
EXTi 

N MrFAlNF0*JJ.i:i3ini»l| MUsTADnl»l ENDl 
I 38 1 10] I 

Then tuo elsex add ftle not on disk 

t»GFT5pACEf^0»0lSKHEADERAREAV#l)+p|X 
X WE HAVE AN oUTpUT UnIT 
INPUT 
OUTPUT 



X WE 
X WF 
" II 

UNTfL 



HAVE 
HAVE 



AN 
AN 



UNIT 
UNIT 



TMP DO 



0*Jn.rCF]«18 THEN X FROM DISK 

[FAiJx2]l FTDt»MrFA*Ujx21l 
T0RvSFARCHf-MFTD«l[3«47in»FlD»7).DEL)l 
THEN GO TO INITIATEI 



9' 
9' 
9- 
9* 
9« 
9- 
9« 
9- 
9' 
9- 
9* 
9' 
X121' 
X119' 
X155' 
X155' 
X757' 
X757' 
X757' 
Xl60' 
X166' 
X166' 
I X132' 
X757" 
X166« 
X166< 
X166' 
X166' 
X166« 
X166' 
Xl66< 
Xl66' 
X166" 
BMSG)I 
X166< 
Xl66< 
Xl66' 
X166" 
X119' 
X166' 

xiss- 

Xl2fl« 
X128' 
X126" 
X757« 

X757' 
X757' 
X757« 
X757' 
X757" 
X757' 



27996525 


n 


119 


27996530 


D 


119 


27996535 


D 


119 


27996540 


D 


119 


27996545 


D 


119 


27996550 


D 


119 


27996555 





119 


27996560 


D 


119 


27996565 


D 


119 


27996570 


D 


119 


27996575 





119 


27996580 


D 


119 


27996585 


n 


119 


27996590 


P 


119 


27996595 


D 


119 


27996600 


n 


119 


27996605 


D 


119 


27996610 


D 


119 


27996675 


n 


121 


27996800 


n 


119 


28050800 


D 


155 


280t0000 


D 


155 


28093900 


D 


757 


28094500 


n 


757 


28097100 


D 


757 


28101200 


D 


160 


28200061 





166 


28208300 


D 


166 


28246200 


n 


132 


28265600 


D 


757 


28270806 


n 


166 


28270807 


n 


166 


28270808 


D 


166 


28270809 





166 


28270810 


D 


166 


28270812 


D 


166 


28270814 





166 


28270816 


D 


166 


28270818 


D 


166 


28270820 


n 


166 


28270822 


D 


166 


28270826 


D 


166 


282f0828 


D 


166 


28270830 





166 


28274200 


n 


119 


28281550 





166 


28288000 


D 


155 


28304590 


D 


128 


28304700 


D 


128 


28306500 


D 


128 


28397700 


D 


757 


28307705 


D 


757 


28307710 


D 


757 


28307715 


n 


757 


28307720 


D 


757 


28307725 


D 


757 


28307730 


D 


757 



rND» X757-2830773»5 n 757 

ANn ((Mrln FQV "PAnTSK •♦) NrO not Oj X165-28415250 n 165 

TMPUr,ETSPACEri?»C0NTR0LCARDARrAV + 64,5) + ai? ft 55-28435000 D 155 

E"LSE if Ubib jhEM P(DlRECT0RYSEARCHfMFlD»F!0M3)»DEL)J »! 34-28446300 D 134 

LAB»«ARRAYnrSC(15#LiiRELAREAV)|X X155-28451800 D 155 

FAl-TYPrnSPArrrTMPliTFMP+fTFMP nrV 2)+?.DATaAREaV)*1»X Xl55-284i2600 n 155 

CcAlsSAVEARRAYDfSCf iO,ESpDISKAREAV)|X 1155-28455400 D 155 

rAI»TYPEDSPACE((8UMpEAl»FASZl«lF MAX > l?fl THEN 128 ELSE MAX)* X155-28456800 D 155 

(FASZ DIV 2) + 2»nATAAREAV)'H II X155-28457000 D 155 

S SFT OMIT «. NOT B6500L0An X121-28475605 121 

TF R6500 ANn fNOT OFSTlN.riMl) THEN «121 -2847561 D I2l 

BEGIN STrEAM(TmPi*TmPI"«SpACE(10))I Xl 21 -28475620 D 121 

DS|»3?LIT''iB«700 Tape TO Tape not allowed*-"! Xl21-28475630 D 121 

SPOUTCTMPjV X121-28475640 D I2l 

ARORTI X121-28475650 n 121 

rNnf 1121-28475660 n I2l 

S POP OMIT I121-28475665 D I2l 

St«ARRAYnESC(30iESpnISKAREAV)|X X155-28855000 155 

WAlTSTORErPlMIXJj STOREDYC PIM I XtO) ) X202-29544000 D 202 

STOREDYfPlMiX,! )l 1202-29548000 n 202 

IF T3!ri5ll51i»0 THEN % DONT USE NONEXISTENT FIB X548-37027500 D 548 

RDCTABLEfU]*p(DUPtL0D)&REEl.tl4l3Rll0] X745-370461 77 D 745 

*CDATEC24|3lM7JXrYCLEt4l|41»73| X745-37046 178 D 745 

IF PRNTARLFCUl.ri til ThfN fLSF X764-37053300 n 764 

BFftiN LARrLTABLrfU]»«-f*P(r>UP))ir.0 TO SOMeWhfRfI fNd| X764-37053400 n 764 

SVOIDT 1160-37180675 D 160 

TF LO-23 THEN BEGIN L0l*27l Hit. 28) pND fLSE X903-37 195375 D 903 

TF L0p27 Then BFGIN L0»«0I HII«»15I END El.SF GO TO DUNI X903-37 195400 D 903 

IF tMEMrPlMIX.MLlNKnKfCn GEO FENCF THEN Xl60-372$6100 D 160 

SVOIDT X160-37226150 160 

SVOIDT X160-37226500 D 160 

SVOIOT X160-37227500 160 

IF COUNT <0 THEN fiO TO STaRTi Xl 18-37240050 D 118 

S VOID X114-37284150 D 114 

tl2t30ll8]»"RETRlES*tFPBtFN3»rpB[FN+n»JfO»0)) X715-37285320 D 715 

IF U < 16 TurN FPRrFN + 3].t6tl7]*.peNTABLrtU].[31ll73l Xl 14-37285410 D 114 

BrRiN MrALPHA*!l*rCURLOr*r,FTSPACFf BStZF***. T0BUFFFRARFAV,n + 2) + 2| 37*06000 D 155 

8V0IDT ^80?ft08l Xl 1 6-380?40l D 116 

MtTi i»ALPHA-2lt«M OR < GETSPACE( ( Ti I »Mt Ti ] , SI ZE )+4» X155-38 107000 D 155 

LaBFLaREAV»1)'»-4) k tHStZEI & CNTLBITS[FTF3|38107100 D 155 

BEGIN NT3 Ip TYPfDSPACF(13iLABFLAREaV)+?IX X155-38107300 D 155 

IF MODf «■ (MOdE»0) and BLEN m 20 THEN X30l-38l076l0 D 30i 

SAVpWoRD l« SAVeWoRD OR TWO(U)l X3O1 -38 197620 D 301 

CnTCTL I* OIrCC I" 01 X301-38107700 D 301 

MtTlt»ALPHA-2J|»M OR (GFTSPACEt ( Tl I •M[Tl 1 ,S 1 Zf )+4» X155-38205000 D 155 

LABfLARFAV.1)+4) ft THStZf] & CNTLBlTSrFTF]l3e205l00 n 155 

If KIND.7 THEN FPBt FNUM*^ 3«.p ♦pfDUp ) )4T2[ 1 •? 1 1 5 J 83 Xl 24-3822891 124 

&0[6l39»93l X124-38228520 D 124 

RFFL»RnrTABLFtU3, [1411031 X GfT aCTUAL RFEL NUMrfR X745-38247100 D 745 

TF KTNn»7 AND F T BT 1 3 3 I r 28 I lO 3#ABSf COBOL ) ThEN rO FTNd FLSF 38272000 D l67 

IF KlwD«i ThEn MrALPHA-2l*PfDUP»LnD) & Xl 40-38280500 140 

(If SEPARATE THEN 1 ELSE ??0) t27 1 42 « 6 3 X140-38280600 D 140 

FLSF X140-38280700 D HO 

IF NOT SEPARATE THFN X140-3828 1600 140 

IF fTYPE<?0) ThfN X140-38281700 D 140 

HEADERr733*PfDUP»L0D)ftCP20)t27»42»63;Xl40-3828l800 D 140 

LABEL E0F» CLEANUpi X146-38363000 146 



nFFlNF H ■ HEAnER*! X146-36385700 

SFr,0jrrMrTYPFDSPACrr6?,SFGZrROAREAV)]]R30tSlZni38434OOO 

tVOlDT 38477OO1 1146-38446500 

BEGIN X Compile Tq library X146-38447000 

FOR Tl |s 15 STfp J UNTIL ?? DO % CoPY PRoC» I/O* 151 4(^-38447500 

SEGOtTll t« SKELtTUl X STACK, COmMON» PRI0.» ETC, 38448000 

IF (T2 i» SKELtUl) * THEN J! LAB. EQN, ENTRIES X146-38448500 

BEGIN X146-38449000 

sKELtisJ i« 01 % SO Terminate wont see fspdisk stuff384495oo 

OtSKWATT(SKFL,rCF]»30,T3)| % RewRtTE SKfL, ShEET 384S0000 

SEGOnSl IB HC73 + U X AnDRESS OF 1ST ENTRY i!l46-38450500 

00 X146-38451000 

BfGIN % COPYING LABEL EON. INfO INTO CODE FILE 38451500 

IF DTSKADDRFSS(MlD»FIn»FPBtFNUM*3]» Xl 46-38452000 

(Tl l»Hr71l»H[7un»H»0) ■ Then % no room 38452500 

BEGIN X14A-38453000 

DO X146-3B453500 

BEGIN 1146-38453600 

DlSKWAlT(-SKEL,rCF3»3ft.T2)l % GET SE6, 38453700 

F0RGFTESPDISK(T2)| X146-38454000 

ENn X146-384S4100 

UNTtL (T2 I« SKFLr29l) m Ol 1146-38454500 

FILfMESSC-'*DISK ♦♦♦"OVRFLOW.MiD.FID. Xl 46- 38455000 

R»D»C)I X146-38455500 

END X146-384S6000 

ELSE XH6-38456500 

BEGIN XH6-38457000 

DISKWaIT(-SKEL.[CF3»30»T2)I X GET SEG, X146-38457500 

F0RGETFSPDISK(T2)» X146-38458000 

IF (T2 !■ SKELt29]) # THPN X MORf Of EM 38458500 

SKFUr29] m Tl i U X ADDR. in code FIUE 38459000 

OlSKWATTfSKEl,rCF]»30»I iPfHtTi DIV Ht 8]Xl46-38459500 

+lO] * Tl MOD Hr8l))l X146-38460000 

END X146-38460500 

END X146-3B461000 

UNTfL T2 m 0| X146-38461500 

END Of PROCESSING LABEL. fQUATtON tNfOI XI 46-38462000 

SEGOt63 •• NABSf*P(DUp))l % NEW FORmAT SEG. ZERO Xi46-38462500 

Ht4]ttloin I" II X MARK AS PrOG, FtLE XH6-38463000 

DlSKWAlT(SF60,rcF3.30»HtlO])| % REWRITE SEG. ZERO X146-38463500 

END OF COMPILE TO LIBRARY PROCESSiNGI X146-38464000 

Mr ALPHA ]*'(*P(DUP)>|{P60000)tcTFl) XI 40- 38590000 

IF TYPF<20 Then X140-38590100 

MfALPHAUr*P(DUP))4(lF SEPARATE ThEN 1 ELSf P20) r 27 t 42 « 6] I X140-38590200 
IF NOT SEPARATE THEN Mr ALPHA]*? ♦Pf DUP ) )« 1 r 27 I 42 t 6 1 1 Xl 40-385921 00 
EnDI X140-38594000 

IF NOT SEPARATE ThEN M[ ALPHA]*PtDUP#LODi*l f 27i 42 I 61 1 X140-38594100 

MtALPHA3.t20ll3*lt X140-38594200 

IF FlBtl4],CFF3J«FTBn4].[CF] THEN X140-38594300 

ENDi X601-38601100 

IF P OR I Then XlO3-38608920 

S VOinT X601-386I1500 

SVOIDT 38639101 X717-36639000 

tF J ThfN SFTNOTTNi)SFfU,0) eUSF LABEUTABLETU J . r 1 1 53*U X717-38640000 

LABEL PXI X905-38660000 

IF SEPARATE ThEN Pf WA IT lOr P4000i00000f O.U ) , DEi ) Xi40-3874 1 000 

ELSE P(WAITI004002000000#0»U)»OE|.)J Xl 40-38741 100 
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146 


D 


146 


D 


146 





146 





146 


D 


146 





146 
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146 


D 


146 





146 





146 


n 


146 
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146 
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146 
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146 
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146 





146 


D 


146 


D 


146 


D 


146 


D 


146 


D 


146 


D 


146 


D 


146 


D 


146 
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146 
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146 
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146 
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146 
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146 
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146 
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146 
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146 
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146 
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146 
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146 


D 


146 


D 


146 


D 


146 


D 


140 


D 


140 


D 


140 


D 


140 


D 


140 


D 


140 


D 


140 


D 


140 


D 


601 


D 


103 


D 


601 


D 


717 


D 


717 


D 


905 


D 


140 


D 


140 



IF NOT SEPARATE TwFN PC WA I T 1 0C^4000l000oO,0»U) » DEL ) I Xl 40-38742100 D HO 

BEGTN RDCTABLFrU],r8l6]*0l X53P-38788500 D 538 

FORKfPf ,PURr,ElT).U.-2»i?8il) EnD FLSE StTNOT I nUSE(U» ) > X538-38789000 D 538 

KlND*FTBC41,t8»41| IF F I Bt 1 3 ] . [28 1 10]»«0 THEN RfEL*F IB[ 13 1 . t 28 I 10 ] I 39092000 D 115 

IF (Tl * PSFUOOMlXtPlMlXl) * THfN X105-39092165 105 

IF PACKFTPAREfTl - 323 # THEN X105-39092167 D 105 

TF r0B0L>0 OR FIBr4],t7in THEN X155-39304000 155 

MrFlB INX NOT n.AREATYPEF «» CoBOLF IRAREAV X155-3930A500 155 

ELSE X155-39304600 D 155 

MCALPHA-7l.AREATYpEF t» ALGOLF I BArEAV | Xl55"393ft5000 D 155 

REAL NEXTLINK» aD» Xt K» SEVEN7» FORTY, EUSUi X791-40004500 D 791 

IF (RA"RL'"» GFQ RAnO THEN RLEN I« ELsE X604''4006006O D 6O4 

OKSFGZrROwRlTFfBTRUFI |[203-40249400 D 203 

OKSeGZfROWRiTei»FALSe» X203-40262100 ?03 

IF PBCOUnT > THEN % TELL OPERATOR X791 -40320100 D 791 

FNni SPOUTfX^l X791-40310600 791 

t VOiriT ^ X791-40338000 n 79l 

F?Bri6]!rCFl»i0lj i;il0-4l204000 D 110 

KEY l« GETSpACEr5.MAlNTBUFFAREAV+6a,0)+9l Xl 55-41 31 2700 D 155 

KEY l« GETSPACEf5»MAINTBUFFAREAV+64»0i+?l « 155-41 31 4000 D 155 

Tl I* TYPFr)SPACF(l5»MAlNTRUFFAREAV)H! «155-4l 3231 30 155 

MOVFf l0,BfTl+2)l X135-41323150 R 135 

MLA «» rMrA««6ETSpACF(33iMAlNTBUFFARFAV,0)+3]i I 32rSTZF]>X X155-41 328600 D l55 

••AUTo^f "RnOO"* %\T% X902-4H34800 D 90? 

"ftlNVAUD"! "8 IPC C"* X145-41445500 D 145 

'♦20M,.,,", X145-41445600 D 145 

"SaRRaY "f ••80LAY R**. % 99 X517-41445700 517 

•♦8PACF U**, "dSFD UP". « X51 7-41445800 n 517 

••DATaO?9", 4i . i;890-4l4830l0 890 

"Form «» r5 t % switch D(PCC) «846-41485600 D 846 

"RANDOM ••» 78 » X603-41485610 D 6O3 

•♦LINFS66'', 77 » X724-414«5620 D 724 

"DUMMY ♦♦» 76 » X846-41485630 D 846 

"ON DISK"."* ♦». J! 68 X166-41493085 D 166 

OKSEGZfrOWrITEi»TrUE» X203-42600919 D 203 

OKsFGZFR0WRlTEf»FALSFI X203-42600921 D 203 

OKsfGZfROwRITFI»TRUFI X203-42713949 203 

OKSfGZfROWRiTfi.faLSfI X203-42713951 2O3 

OKSEGZFROWRlTEieTRUE; X203-42730999 D 203 

OKSFGZfROWRITEi»FALSEI X203-42731051 D 203 

n»(Tl«GFTSPACF(J + ?»TNQUIRYBUFFARFAV.0)*n*3 AND NOT 3| 44041000 D 155 

IF FENCF^f 32116] * FENCE OR FENCE < 8l92 THFN FrNCE U 163841 Xl5l -44104000 l5l 

IF J < 7 THEN X NEED TO FIND HIGHEST ON LINE MOD BELOW FENCE Xl5l -44 109900 D l5l 

MfMTOGi-11 X202-44114100 D 202 

♦(CHUNKMAX«0) % IN CASE ITS ALL BaTCH Xl5l -44151 050 l5l 

MrCI»Jl»TYPEDSPACE(I.MCPTABLFARFAV)+T5i»OI X155-44 153500 D 155 

I|wCHUNKMaX*(CHUNKMAX*0)I X151-44163100 D I5l 

I l« SPACfSTACKSIZFI T »• PC.SPACFSTArK)! FlX« % X152-44173100 D 152 

I IS Wl T l« P(.ESPTAB)I FIXI X X158-44 173200 D l58 

T I* lOOl T %m P(.W0RKERSTACK)> FtXI « X15B-44179100 D 158 

T l» 01 X158-44179200 D 158 

FOR T \9 '^ STEP 1 UNTIL NUMSTACK DO X158-44 1 79250 D 158 

BEGIN X158-44179300 D 158 

M[J] !■ II X LINK To PREVIOUS STACK IN Q, X158-44179350 D 158 

MtJ+n t» WORDOFFASEI « CLEAR STApK X158-44179400 D 158 

M0Vf(STaNDAR0STacK-2»J+1.J+2)| X158-44179450 n 158 

I l» Jl * REMfMBFR WHFRE THfS STApK IS X158-44 179500 158 



J IS J ♦ STANDARnSTACKI % COMPUTE ADDRESS Or NEXT STAC44179550 D 158 

rNni X158-44179600 D 158 

STACKS Is Tl % POtNT TO FlRST STAcK IN Q. Xl58-4ftl 79650 D l58 

MOVE f99. n-W0RKERSTACK,[CF3*T+n^ XTO SPOT POSSIBLE OVER 44189600 n l58 

IF fTl»MrA*i9].[3?tl6]) ^ FENCE AnD T # THEN X 151 -441 91 0?0 D l5l 

> PJOOOO AND T < ?100000 THEN FfNCE tm T> 1151-44191040 D I5l 

IJ|»GETSPaCECZ»AVTABLEAREAV,i )+9l Xl55-442408ft0 D 155 

SCRATCHVECl»tMtGETSpACE(10»SCRATCHDlRAREAV»SCRATCHSAVE)+2l J X155-4424 1 1 80 D 155 

& 10 [ToSIZEll X155-44241185 D 155 

OKSEGZfROWRITEi«TRUEI X?03-44411399 D 203 

OKSEGZfROWRITEiwFALSEI X203-44411401 D 203 

ITSALLBATrH t» FENCE > P60000I X151 -44420000 D l5l 

IF AUTORN THFN RFGIN RUNUMBFR«»4; STaRT ADFcKf 0) I END> 1:902-44424100 D 90? 

FOR NTui step 1 UNTIL LMAX oO 1993-44430000 D 993 

IF SCHEDLtNErNTi ] THEN SCHEDBUSYt NT 1 ] *. 01 X993-44430100 D 993 

l?9« GO Tft EXTERNAL? « 35 • SPECIAL INTERRUPT 46011500 D 17? 

1301 GO To EXTERNALI % 36 - OKA READ CHECK 46012000 D 172 

1311 GO To EXTERNALI X 37 - DKB READ CHECK 46012500 172 

TF NT3»2 THFN STOPM ELst SWApC X991-48030000 D 991 

IF LOGLINE.r33l7]jiO ThEN «991 -48030010 D 991 

IF NOT SCHEDLlNErL0GLlNE,C40l8]J THEN «991 -4803001 5 991 

FORcESWaP fLSf TIMeND else TlMENOfDl 48030020 D 99l 

% X154-48038120 n 154 

% IF Wr RrACH THIS POINT THEN THIS JOB HAS USED X 154-480381 30 154 

% UP ITS Time slice jeiTher processor or i/o) or X154-48O38140 d i54 

SVoIDT 48038401 X154-48038149 D 154 

% THIS JOB HAS BEEN DOING EXrESSIVr OVERLAY AND X154-48038150 D 154 

% DESERVES ANOTHER CHUNK OF MEMORY! IF THE X154-48038160 D 154 

X PROGRAM HAS USED UP ITS TIME SLICEt WE WILL X154-48038170 D 154 

X SWAP IT OUT IF THERE IS SOME OTHfR PROGRAM THAT X154-48038180 154 

X IS READY TO RUN AND CAN USE THIS GUYS CHUNKS* IFX 154-48038190 D 154 

X THE PROGRAM HAS BEEN DOING EXCESSIVE OVERLAY ANDX154-48038200 D 154 

X THF PROGRAM HAS ROOM FOR EXPaNSIoN aNO DIDNT USEX 154-48038210 D 154 

% A MAV CORF CARD. WE WILL SWAP IT OUT X154-480i8220 D l54 

X AND SWAPPtNGtO WILL ARRANGF TO OrTAIN ANOThER X154-48038230 D 154 

X CHUNK. X154-48038240 D 154 

X X154-48038250 D 154 

IF pfOiRDS) > FENCE THEN X SWAP JOB X154-48038260 D 154 

BEGIN X154-48038270 D 154 

FOR NT2 l« SCCPIMIX] STEP 1 UNTIL LCtPlMIX] DO 48038280 D 154 

IF ACTIVEI:NT2] > 1 Then X someone can use this 48038290 154 

BEGIN X rHUNK, X154-48038300 D 154 

SWAPCTlMpNn.Dl J! X154-48038310 n 154 

GO TO RETURNI X154-48038320 D 154 

ENDI X154-48038330 154 

IF OLAYCTRtPiMiX] < ThEN X pXCESSiVE OVERLAY, 48038340 154 

IF OONTrXPANDBlTStPlMlX] • o THEN X EXPANDABLE 48038350 D 154 

BEGIN X154-48038360 D 154 

SWAP(TIMEND»1)I X X154-48038370 D 154 

GO TO RETURNI X154-48038380 D 154 

FNOI X154-48038390 D 154 

BEGIN SWAPflF LOGL I NF. t 331 7 1#0 THEN X991 -48038400 D 991 

IF Not SCHEDLINFlLOGLINF.t40|8]3 THEN FORCESWAPX991-48038405 D 991 

ELSE TIMEND ELSE TIMeNd.Di GO To RETURN ENDI X991 "48038410 D 991 

BFGIN X155-48052000 D 155 

PfNT4,BL0B»NTl»GFTsPACp(NTl»STACKAREAV.3))l48052100 D 155 

» Set OMiT w NOTfNEWLOr,GTNG) X550-48100499 D 550 



STARTL0G{P1MIX>| 
$ POP OMIT 

ir U LrQ 15 THrN « taPf I/O 

FNn. 
? fnd! 



NUMBER OF ERRORS DETECTfD m 0, 
PROCESSOR TIME » 185 SfConDS, 
I/O TIME * 93 SECONDS. 



Label OOOOOOOOOLINE OOI792I9? execute PATrH/MERr,E 



X550-48100500 
X550-48100501 
X168-94129560 
X168-99999999 
OOOOOOn 



n 


550 


D 


550 


n 


168 


n 


168 



Patch /merge 



